Verzeichnispfad beliebiger Tiefe erstellen

Mit der Win API Funktion MakeSureDirectoryPathExists aus der Imagehlp.Dll kann man einen kompletten Verzeichnispfad inklusive noch nicht exestierender Unterordner, unabhängig von der Tiefe, erstellen.

MakeSureDirectoryPathExists aus der Imagehlp.Dll einbinden.

1
2

Private Declare Function MakeSureDirectoryPathExists Lib "imagehlp.dll" ( _
  ByVal lpPath As String) As Long

MakeSureDirectoryPathExists erwartet 1 Parameter:

lpPath: Der Verzeichnispfad, welcher mit einem "/" beendet werden muss.

Rückgabewert:

0: Wenn die Funktion fehlgeschlagen ist.

1: Wenn die Funktion den Verzeichnispfad erfolgreich erstellen konnte.

1
2
3
4
56
7

Public Function ForceDirectories (ByVal FullPath As String) As Boolean
Dim RetVal As Long
 
'Verzeichnispfad erstellen
RetVal = MakeSureDirectoryPathExists(FullPath)ForceDirectories = (Not RetVal = 0)
End Function