GetFullPathName-Funktion Die Funktion GetFullPathName liefert das aktuelle Laufwerk und den vollständigen aktuellen Pfad für eine Datei zurück.
Betriebssystem:  Win95, Win98, WinNT, Win2000, WinME	Views:  13.261

Beschreibung:
Die Funktion GetFullPathName liefert das aktuelle Laufwerk und den vollständigen aktuellen Pfad für eine Datei zurück. Es wird jedoch nicht die Existenz der Datei geprüft.

Deklaration:

Private Declare Function GetFullPathName Lib "kernel32.dll" _
  Alias "GetFullPathNameA" ( _
  ByVal lpFilename As String, _
  ByVal nBufferLength As Long, _
  ByVal lpBuffer As String, _
  ByVal lpFilePart As String) As Long

Parameter:

lpFilename	Erwartet einen Dateinamen. Der Dateiname wird dann inkl. der vollständigen Pfadangabe in lpBuffer zurückgegeben.
nBufferLength	Länge (Anzahl Zeichen) von lpBuffer
lpBuffer	Wird zurückgegeben und enthält den vollständigen Verzeichnisnamen inkl. Laufwerksbuchstabe.
lpFilePart	Undokumentiert. Einfach eine leere Zeichenfolge angeben.

Rückgabewert:
War der Funktionsaufruf erfolgreich enthält lpBuffer die vollständige Pfadangabe inkl. dem in lpFilename angegebenen Dateinamen. Die Länge wird als Funktionsrückgabewert zurückgegeben. Trat ein Fehler auf, wird 0 zurückgegeben.

Beispiel:

Private Declare Function GetFullPathName Lib "kernel32.dll" _
  Alias "GetFullPathNameA" ( _
  ByVal lpFileName As String, _
  ByVal nBufferLength As Long, _
  ByVal lpBuffer As String, _
  ByVal lpFilePart As String) As Long

Private Sub Command1_Click () 
  Dim RetVal As Long
  Dim lpBuffer As String * 256 
 
  ' Ermittelt den vollständigen aktuellen Verzeichnispfad
  RetVal = GetFullPathName("Test.txt", Len(lpBuffer), lpBuffer, "") 
 
  If RetVal <> 0 Then 
    MsgBox "Der vollständige Pfad ist: " & Left$(lpBuffer, RetVal) 
  End If 
End Sub