' kurzer Pfad ermitteln (8.3)
Private Function Get_ShortFullPath( _
  ByVal FullPath As String) As String
 
  Dim Buffer As String
 
  Buffer = Space$(256)
  If GetShortPathName(FullPath, Buffer, Len(Buffer)) <> 0 Then
    Get_ShortFullPath = Left$(Buffer, _
      InStr(Buffer, vbNullChar) - 1)
  End If
End Function