Posted inโค้ด
หาชื่อไฟล์จาก path
Public Function GetFileNameFromPath(path As String) As String Dim fileName As String fileName = Dir(path) If Len(fileName) > 0 Then GetFileNameFromPath = fileName Else GetFileNameFromPath = "File not found" End If…
