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