Den kurzen Pfad einer Datei ermitteln (8.3 Format)

Sprache: VB

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

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 Datei GetShortPathName pfad ShortPath

Alte URL: /snippet/den-kurzen-pfad-einer-datei-ermitteln-8-3-format/335

1 Kommentar