Den kurzen Pfad einer Datei ermitteln (8.3 Format)

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

Private Declare Auto Function GetShortPathName Lib "kernel32" ( _
    ByVal lpszLongPath As String, _
    ByVal lpszShortPath As String, _
    ByVal lBuffer As Integer) _
As Long

''' <summary>
''' Diese Funktion ermittelt den kurzen 8.3 Pfad einer Datei
''' </summary>
''' <param name="Path">Der Pfad dessen kurzer Pfad ausgelesen werden soll</param>
Public Function GetShortPath(ByVal Path As String) As String
    Dim ShortPath As String = Space(255)
    GetShortPathName(Path, ShortPath, 255)
    Return ShortPath
End Function