GetShortPathName-Funktion Die Funktion GetShortPathName ermittelt den äquivalenten kurzen DOS 8.3 - Namen zu einem langen Datei- oder Verzeichnisnamen.
Betriebssystem:  Win95, Win98, WinNT, Win2000, WinME	Views:  17.364

Beschreibung:
Die Funktion GetShortPathName ermittelt den äquivalenten kurzen DOS 8.3 - Namen zu einem langen Datei- oder Verzeichnisnamen.

Deklaration:

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

Parameter:

lpszLongPath	Gibt den gültigen langen Datei- oder Verzeichnisnamen an.
lpszShortPath	Rückgabe-Buffer für den kurzen Datei- oder Verzeichnisnamen.
cchBuffer	Größe (Anzahl Zeichen) des reservierten Buffers.

Rückgabewert:
War der Funktionsaufruf erfolgreich enthält lpszShortPath den kurzen Datei- oder Verzeichnisnamen. Die Länge wird als Funktionsrückgabewert zurückgegeben. Tritt ein Fehler auf (z.B. dann, wenn die angegebene Datei nicht existiert), wird 0 zurückgegeben.

Beispiel:

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

Private Sub Command1_Click () 
  Dim RetVal As Long
  DIM sShortName As String
 
  sShortName = Space$(256)
  RetVal = GetShortPathName("C:\Programme\Zubehör", sShortName, _
    Len(sShortName)) 
 
  If RetVal = 0 Then 
    MsgBox "Es ist ein Fehler aufgetreten", vbCritical, "Fehler" 
  Else 
    MsgBox "Der kruze Name lautet: " & Left$(sShortName, RetVal)
  End If 
End Sub