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.png2.png0.png1.png3.png2.png2.png
Heute16
Gestern128
Diese Woche548
Dieser Monat1818
Total1201322

  • IP: 54.81.110.186
  • Browser: Unknown
  • Version:
  • OS: Unknown

Online

3
Online

18. August 2018

Letzte Kommentare

  • Trusted Locations Manager

    Tommy Admin 13.07.2018 13:06
    RE: Trusted Locations Manager
    Hallo Matthias, aus Ermangelung einer 64bit Version kann ich das leider nicht prüfen. Tut mir leid. Gruss ...

    Weiterlesen...

     
  • Trusted Locations Manager

    Matthias 13.07.2018 06:48
    Funktioniert nicht
    Habe gerade den TL-Manager installiert. Nach dem Start sagt er mir, dass es kein Office erkennen ...

    Weiterlesen...