VB-Homepage Tipp 230

Verzeichnissestrukturen mit einem Aufruf erstellen

Wer viel mit Daten arbeitet, der muß ggf. auch mit vielen Verzeichnissen arbeiten oder aber Sie wollen so eine Art Dateimanager (Explorer) programmieren und dabei die Möglichkeit bieten, gleich mit einem Ritt Unterunterunter Verzeichnisse zu erstellen.

Wie würden Sie es denn angehen. Erst das eine Verzeichnis anlegen, dann prüfen ob es angelegt wurde, dann das nächste und wieder prüfen ......

Damit ist jetzt Schluß, denn mein persönlicher Favorit der Maitips 98 schafft hier Abhilfe.

Und dabei bedarf es auch nicht viel der Definierung. Die Prüfung, ob das Verzeichnis erstellt wurde, übernimmt dabei die Prozedur selbst.

1. Allgemein / Deklarationen
Private Declare Function MakePath Lib "imagehlp.dll" Alias "MakeSureDirectoryPathExists" (ByVal lpPath As String) As Long

Besagte "IMAGEHLP.DLL" ist Bestandteil von Windows95 und sollte somit in Ihrem Systemverzeichnis existieren. Als Rückgabewert erhalten Sie die Auswertung ob die Verzeichnisse ordnungsgemäß angelegt wurden.

2. Aufruf
Hier soll als Test im Laufwerk C: das Verzeichnis "Verz1" angelegt werden, das weitere Unterverzeichnisse beinhalten soll. Bei jedem Rückgabewert ungleich 0 wurde die Aktion erfolgreich durchgeführt.

If MakePath("C:\Verz1\UVerz1\UVerz2\UVerz3\") <> 0 Then
   MsgBox "Verzeichnisse erfolgreich angelegt"
Else
   MsgBox "Fehler beim Anlegen der Verzeichnisse"
End If

Tipp-Download

Quelle : M.Schiffer in VBPlus auf BasicWorld / http://www.basicworld.com

Zurück zur Übersichtsseite