خوشبختانه اکسس خودش تابع جستجوی برعکس رو هم داره. بنابراین خیلی ساده:
Left(FullPath,InStrRev(FullPath,"\"))
و فرم کاملتر که از یک FullPath همه مقادیر رو استخراج میکنه : مسیر ، اسم فایل ، نوع فایل (ext)
Option Compare Database
Option Explicit
Type FileInfo
Path As String
FileName As String
FileType As String
End Type
Public Function GetInfo(FullPath As String) As FileInfo
Dim i As Integer
i = InStrRev(FullPath, "\")
GetInfo.Path = Left(FullPath, i)
Dim x As String
x = Right(FullPath, Len(FullPath) - i)
GetInfo.FileName = Left(x, InStrRev(x, ".") - 1)
i = InStrRev(x, ".")
GetInfo.FileType = Right(x, Len(x) - i)
End Function
نمونه خروجی:
1.PNG