Private Declare Function GetLongPathName Lib "kernel32" Alias _
                        "GetLongPathNameA" (ByVal lpszShortPath As _
                        String, _
                         ByVal lpszLongPath As String, _
                         ByVal cchBuffer As Long) As Long
 
Private Declare Function GetShortPathName Lib "kernel32" Alias _
                         "GetShortPathNameA" (ByVal lpszLongPath As _
                         String, _
                         ByVal lpszShortPath As String, _
                         ByVal cchBuffer As Long) As Long
 
Private Function LongPathName(ByVal OldPathName As String) As String
 
    ' Achtung: Geht erst ab Windows 98
 
    Dim n As Long
    Dim Buffer As String
    Dim TempStr As String
    Dim ShortName As String
 
    ShortName = OldPathName
 
    n = 260
    Buffer = String$(n, 0)
    n = GetLongPathName(ShortName, Buffer, n)
    If n > 0 Then
        TempStr = Left$(Buffer, n)
    End If
 
    If TempStr = "" Then
        LongPathName = OldPathName
    Else
        LongPathName = TempStr
    End If
 
End Function