[VB_Coder]

السلام عليكم

- إستخدم هذه الدالة :-

كود :

Private Function GetLastFolder(zPath As String) As String
Dim LastFolder As String
IF Trim(zPath) = "" Or InStr(1,Trim(zPath),"\") = 0 Then
GetLastFolder = ""
Exit Function
End IF
LastFolder = StrReverse(zPath)
LastFolder = Mid(LastFolder,InStr(1,LastFolder,"\") + 1)
IF InStr(1,LastFolder,"\") > 0 Then
LastFolder = Left(LastFolder,InStr(1,LastFolder,"\") - 1)
End IF
LastFolder = StrReverse(LastFolder)
GetLastFolder = Trim(LastFolder)
End Function

- وقم بإستدعائها بهذا الشكل :-

كود :

Msgbox GetLastFolder("C:\A\B\C\D\File.txt")

- تحياتي .