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
|