vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#

https://www.vbarchiv.net
Rubrik: Dateisystem09.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, WinMEViews:  14.843 

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:
lpszLongPathGibt den gültigen langen Datei- oder Verzeichnisnamen an.
lpszShortPathRückgabe-Buffer für den kurzen Datei- oder Verzeichnisnamen.
cchBufferGröß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

 
 
Copyright ©2000-2021 vb@rchiv Dieter OtterAlle Rechte vorbehalten.


Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.