Dim splitfilename As String Dim DocumentNamesplit As String splitfilename = DocumentName.Split(CChar("\")) 'คำสั่งที่ใช้ในการตัดชื่อ part "\" คือสิ่งที่ต้องการที่จะตัด DocumentNamesplit = splitfilename(splitfilename.Length - 1) 'ส่วนนี้เป็นส่วนที่เหลือแต่ชื่อหลังจากการตัด Part แล้ว