Für 32Bit und 64Bit Office Versionen
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
Weiterlesen...