1 1 1 1 1 1 1 1 1 1 Rating 3.50 (2 Votes)

Um ein Verzeichnis mittels VBA zu erstellen steht der Befehl "MkDir" zur Verfügung.
Der Syntax ist z.B.:

MkDir "C:\Test"

Leider ist es nicht möglich einen ganzen Verzeichnisbaum gleichzeitig zur erstellen.
Um einen ganzen Verzeichnisbaum, in einem Schritt zu erstellen, ist eine zusätzliche Prozedur erforderlich. 

Sub Mk_Dir(bez1$)
'Die Funktion erzeugt einen kompletten Unterverzeichnisbaum
On Error Resume Next
Dim verz$, Bez$
    Bez = bez1
    verz = Left(Bez, 3)
    Bez = Right(Bez, Len(Bez) - 3)
    If Right(Bez, 1) <> "\" Then Bez = Bez & "\"
    verz = verz & Mid(Bez, 1, InStr(Bez, "\") - 1)
    Bez = Right(Bez, Len(Bez) - InStr(Bez, "\"))
    While Right(verz, 1) <> "\"
        MkDir verz
        If Bez <> "" Then
            verz = verz & "\" + Mid(Bez, 1, InStr(Bez, "\") - 1)
        Else
            verz = verz & "\"
        End If
        Bez = Right(Bez, Len(Bez) - InStr(Bez, "\"))
    Wend
End Sub


Aufruf:

Mk_Dir "C:\Test\Access_DB\Test DB"

würde das Verzeichnis "C:\Test\Access_DB\Test DB" erstellen,
egal ob schon die anderen Verzeichnisse vorhanden sind.

Ähnliche Artikel

Kommentar schreiben

Sicherheitscode
Aktualisieren

Login Form

1.png1.png9.png3.png1.png0.png9.png
Heute38
Gestern54
Diese Woche38
Dieser Monat1168
Total1193109

  • IP: 54.156.76.187
  • Browser: Unknown
  • Version:
  • OS: Unknown

Online

2
Online

21. Mai 2018