Get the file name from a full path string

Function FileNameFromPath(strFullPath As String) As String
    Dim I As Integer

    For I = Len(strFullPath) To 1 Step -1
        If Mid(strFullPath, I, 1) = "\" Then
            FileNameFromPath = Right(strFullPath, Len(strFullPath) - I)
            Exit For
        End If
    Next
End Function

This function gets just the file name from a string containg the full path to a file, as for instance found in a connect string.

Permalink