GetFilePath

Function GetFilePath(FileName As String) As String
Dim i As Long
For i = Len(FileName) To 1 Step -1
Select Case Mid$(FileName, i, 1)
Case ":"
' colons are always included in the result

GetFilePath = Left$(FileName, i)
Exit For
Case "\"
' backslash aren't included in the result

GetFilePath = Left$(FileName, i - 1)
Exit For
End Select
Next
End Function