VBA Tipp: Verzeichnis mit Unterverzeichnissen anlegen

Aus DBWiki
Wechseln zu: Navigation, Suche

Aufgabenstellung

Ich möchte ein Verzeichnis mit Unterverzeichnissen "auf einen Schlag" anlegen - ohne Rücksicht darauf, ob das Verzeichnis bzw. einige der Unterverzeichnisse schon existieren oder nicht.

Die MkDir-Anweisung ist dafür so ohne weiteres nicht geeignet, da sie davon ausgeht, dass die Verzeichnisse auf höherer Ebene bereits existieren.

Lösung

Public Function MakeDir(FolderName As String)
Dim S As Variant, I As Long, F As String
S = Split(FolderName, "\")
For I = LBound(S) To UBound(S)
  If S(I) <> "" Then
    F = F & S(I) & "\"
    On Error Resume Next
    MkDir F
    On Error GoTo 0
  End If
Next I
End Function

Aufruf

Call MakeDir ("C:\TEMP\Test\Test")

Siehe auch

Was Access-Versionen vor Access 2000 angeht - siehe zur Split-Funktion hier: