saprit name in strings

[falcons]

dear friend
i have a string like
"d:\proj\pics\ds0001" this is not a static strings
some time drive latter may be change and some time fowlder in dowlder changed like "c:\document and setting\all user\dasktop\DS0008"
or "f:\my fowlder\your\me\tum\vehicle\my pic"

i want to get last strings or called file name (ds0001,DS0008,my pic) in above strings on runtime

thanks

[WillAtwell]

Here is one method of parsing a filename from a path

Private Sub Command1_Click()
Dim FileName As String
Dim Temp() As String
Dim x As Integer
Dim PathName As String
	PathName = "C:\temp\pictures\jpegs\Mypic.jpg"
	Temp = Split(PathName, "\")
	x = UBound(Temp)
	FileName = Temp(x)
	MsgBox FileName
End Sub

[Shaikh.Riyaz.a]

It is better to use FileSystemObject.
Here is one example:

    Dim fso As Object
    
    Set fso = CreateObject("Scripting.FileSystemObject")
    
    'This will return 'DS0008.jpg'
    MsgBox fso.GetFileName("c:\document and setting\all user\dasktop\DS0008.jpg")
    
    'This will return 'DS0008'
    MsgBox fso.GetBaseName("c:\document and setting\all user\dasktop\DS0008.jpg")
    
    'This will return 'jpg'
    MsgBox fso.GetExtensionName("c:\document and setting\all user\dasktop\DS0008.jpg")

[WillAtwell]

It is better to use FileSystemObject.

Better? I wouldn't go so far as to say that. Either will work fine in this case. FSO likely takes more memory, works fine with filenames. Split works with strings so is not limited to file names. Both seem to run at about the same speed.

[dglienna]

takes another reference that isn't needed for speed

[WizBang]

Two more methods to retrieve the filename from the full path would be:

Private Function GetFileName(FullPath As String) As String
GetFileName = Mid$(FullPath, InStrRev(FullPath, "\") + 1)
End Function

Or via API:
http://allapi.mentalis.org/apilist/GetFileTitle.shtml