Rubrik: Dateisystem | 09.05.01 |
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: 16.704 |
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