Die Community zu .NET und Classic VB.

Startseite / Tipps / VB 5/6-Tipp 0592: Kurze- in lange Pfadnamen umwandeln.

VB 5/6-Tipp 0592: Kurze- in lange Pfadnamen umwandeln.

 von Klaus Langbein

Schwierigkeitsgrad:

Verwendete API-Aufrufe: GetLongPathNameA (GetLongPathName), GetShortPathNameA (GetShortPathName)

Download: Download des Beispielprojektes [2,38 KB]

'Dieser Quellcode stammt von http://www.activevb.de
'und kann frei verwendet werden. Für eventuelle Schäden
'wird nicht gehaftet.

'Um Fehler oder Fragen zu klären, nutzen Sie bitte unser Forum.
'Ansonsten viel Spaß und Erfolg mit diesem Source!

'------------- Anfang Projektdatei Projekt1.vbp -------------
'--------- Anfang Formular "Form1" alias Form1.frm  ---------
' Steuerelement: Schaltfläche "Command1"
' Steuerelement: Textfeld "txtPath"
' Steuerelement: Beschriftungsfeld "Label4"
' Steuerelement: Beschriftungsfeld "lblLong"
' Steuerelement: Beschriftungsfeld "Label1"

Option Explicit

Private Declare Function GetLongPathName Lib "kernel32" Alias _
                        "GetLongPathNameA" (ByVal lpszShortPath As String, _
                         ByVal lpszLongPath As String, _
                         ByVal cchBuffer As Long) As Long

Private Declare Function GetShortPathName Lib "kernel32" Alias _
                         "GetShortPathNameA" (ByVal lpszLongPath As String, _
                         ByVal lpszShortPath As String, _
                         ByVal cchBuffer As Long) As Long

Private Function LongPathName(ByVal ShortName As String) As String
    
    ' Achtung: Geht erst ab W98
    
    Dim n As Long
    Dim Buffer As String
    
    n = 260
    Buffer = String$(n, 0)
    n = GetLongPathName(ShortName, Buffer, n)
    If n > 0 Then
        LongPathName = Left$(Buffer, n)
    End If
    
End Function

Private Sub Command1_Click()
    ' man muß hier natürlich dafür sorgen, dass auch ein kurzer
    ' Dateipfad generiert wird.
    
    lblLong = LongPathName(txtPath)
End Sub

'---------- Ende Formular "Form1" alias Form1.frm  ----------
'-------------- Ende Projektdatei Projekt1.vbp --------------