Rubrik: Dateisystem | 22.03.05 |
MakeSureDirectoryPathExists-Funktion Diese Funktion erstellt einen kompletten Verzeichnispfad inklusive noch nicht vorhandener Unterordner. | ||
Betriebssystem: Win95, Win98, WinNT 3.1, Win2000, WinME | Views: 21.814 |
Deklaration:
Declare Function MakeSureDirectoryPathExists Lib "imagehlp.dll" ( _ ByVal lpPath As String) As Long
Beschreibung:
Diese Funktion erstellt einen kompletten Verzeichnispfad inklusive noch nicht vorhandener Unterordner.
Parameter:
lpPath | Erwartet den Verzeichnispfad, der mit einem Backslash beendet werden muss. |
Rückgabewert:
Ist die Funktion erfolgreich so wird der Wert "1" zurückgegeben, andernfalls liefert die Funktion denWert "0" zurück.
Beispiel:
Private Declare Function MakeSureDirectoryPathExists Lib "imagehlp.dll" ( _ ByVal lpPath As String) As Long
' Legt einen kompletten Verzeichnispfad an Private Sub Command1_Click() Dim Retval As Long ' Verzeichnis erstellen Retval = MakeSureDirectoryPathExists("c:\windows\Desktop\Test Verzeichnis\VB Api Helpline\") If Retval = 0 Then MsgBox "Das Verzeichnis konnte nicht angelegt werden" Else MsgBox "Das Verzeichnis wurde angelegt !" End If End Sub