Public Function GetPathName(strFullPath As String) As String
    Dim iSep As Integer
 
    iSep = InStrRev(strFullPath, "\")
    If iSep = 0 Then
        GetPathName = ""
    Else
        GetPathName = Left(strFullPath, iSep - 1)
    End If
End Function

Bye

illuminator
(Programmers don't die, they GOSUB without RETURN...)