Filename from Path
No attachments for this post
Given a fully qualified path and filename, returns only the filename.
Function GetFileName(fname As String) As String
Dim i As Long
On Error Resume Next
For i = Len(fname) To 1 Step -1
If Mid(fname, i, 1) = "\" Then
GetFileName = Trim(Mid(fname, i + 1))
Private Sub Command1_Click()
' Good for removing the path
This code originally appeared on AndreaVB.com, and has been republished here with the permission of Andrea Tincani.
Comments on this post
No comments have been added for this post.
You must be logged in to make a comment.