การแยกชื่อไฟล์ ออกจาก Path ด้วย Access VBA
เมื่อมีการใช้ File Dialogue ให้ผู้ใช้เลือกไฟล์ในเครื่อง โดยให้แสดง File Dialog ดังภาพ เมื่อผู้ใช้เลือกไฟล์ที่ต้องการและเราต้องการแยกชื่อไฟล์ออกจาก Path มีฟังก์ชั่น ที่ dzone.com สามารถนำไปใช้ได้ทันที ตามโค้ดตามโค้ดข้างล่างนี้ Function GetFilenameFromPath ( ByVal strPath As String ) As String If Right $( strPath , 1 ) <> "\" And Len ( strPath ) > 0 Then GetFilenameFromPath = GetFilenameFromPath ( Left $( strPath , Len ( strPath ) - 1 )) + Right $( strPath , 1 ) End If End Function ตัวอย่างการใช้งาน (บรรทัดที่มีตัวหนังสือสีแดง) Private Sub Command0_Click() On Error GoTo ErrHandler Dim f As Object Dim fileAddress As String Dim selectedFileName As String Set f = Application.FileDialog(3) f.AllowMultiSelect = False ...