Retrieve the long pathname version of a path/file name

'-----------------------------------------------------------
' FUNCTION GetLongPathName
'
' Retrieve the long pathname version of a path possibly
'   containing short subdirectory and/or file names
'-----------------------------------------------------------

Function GetLongPathName(ByVal strShortPath As String) As String
    On Error GoTo 0

    MakeLongPath (strShortPath)
    GetLongPathName = StripTerminator(strShortPath)
End Function