GetFilePath

Public Function GetFilePath( _
    sFullFileNameWithPath As String _
) As String
    Dim fs As Object
    Set fs = CreateObject("Scripting.FileSystemObject")
    GetFilePath = _
        fs.GetAbsolutePathName( _
            sFullFileNameWithPath _
        )
End Function