Feedback

VB - Den kurzen Pfad einer Datei ermitteln (8.3 Format)

Veröffentlicht von am 26.11.2006
(2 Bewertungen)
Diese Funktion ermittelt den kurzen 8.3 Pfad einer Datei
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
Abgelegt unter GetShortPathName, Pfad, Datei, ShortPath.

1 Kommentare zum Snippet

Dirk Klimke schrieb am 05.10.2008:
Gutes Snippet!
 

Logge dich ein, um hier zu kommentieren!