Komplette Verzeichnisebenen erstellen Mit dieser DLL-Funktion lassen sich mehrere Verzeichnisse beliebiger Verzeichnistiefe erstellt.
Autor:   Dieter Otter	Bewertung:     [ Jetzt bewerten ]	Views:  20.184
https://www.tools4vb.com	System:  Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 29 Bewertung insgesamt: gut Durchschnittliche Bewertung: 3.8 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

Der Befehl zum Erstellen eines Verzeichnisses lautet, wie allgemein bekannt: MkDir (MakeDir). Mit diesem Befehl lässt sich aber nur genau ein Verzeichnis erstellen, d.h. soll z.B. ein Verzeichnis innerhalb eines anderen Verzeichnisses erstellt werden, wobei das übergeordnete Verzeichnis noch nicht existiert, so erhalten Sie beim Versuch das Verzeichnis per MkDir zu erstellen einen Laufzeitfehler.

In einem früheren Tipp haben wir Ihnen bereits gezeigt, wie sich solche verschachtelten Verzeichnisse mit reinem VB-Code erstellen lassen. Hierzu wurde in Verbindung mit einer While...Wend-Schleife ein Verzeichnis nach dem anderen erstellt.

Siehe Tipp:  Verschaltete Verzeichnisse erstellen

Dass es aber auch einfacher geht, das zeigt Ihnen unser heutiger Tipp. Benötigt wird lediglich ein einziger DLL-Funktionsaufruf!

' Hier die benötigte DLL-Deklaration
Private Declare Function MakePath Lib "imagehlp.dll" _
  Alias "MakeSureDirectoryPathExists" ( _
  ByVal lpPath As String) As Long

Und so wird ein verschachteltes Verzeichnis erstellt:

Dim Result As Long
Dim myOrdner As String
 
myOrdner = "d:\vb6\projekte\dlls\TestDLL"
Result = MakePath(myOrdner)