hardlife
03-31-2010, 10:10 AM
Please, are there another ways to do this?
me is just now trying to extract last directory,
does anybody know other possibilities to do this?
thanks everybody for any opinion,
HAPPY AND SUNNY DAY to everyone :hi:, Pavel
Sub last_directory_in_path()
Dim a() As String, place As String
place = "c:\Program Files\Common Files\Microsoft Shared\Stationery\"
a() = Split(place, "\")
MsgBox a(Len(place) - Len(Replace(place, "\", "")) - 1)
End Sub
me is just now trying to extract last directory,
does anybody know other possibilities to do this?
thanks everybody for any opinion,
HAPPY AND SUNNY DAY to everyone :hi:, Pavel
Sub last_directory_in_path()
Dim a() As String, place As String
place = "c:\Program Files\Common Files\Microsoft Shared\Stationery\"
a() = Split(place, "\")
MsgBox a(Len(place) - Len(Replace(place, "\", "")) - 1)
End Sub