Rubrik: Dateisystem · Ordner & Verzeichnisse | VB-Versionen: VB4, VB5, VB6 | 24.10.01 |
Komplette Verzeichnisebenen erstellen Mit dieser DLL-Funktion lassen sich mehrere Verzeichnisse beliebiger Verzeichnistiefe erstellt. | ||
Autor: Dieter Otter | Bewertung: | Views: 18.969 |
www.tools4vb.de | System: Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11 | Beispielprojekt auf CD |
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)