Office: (Office 2016) Ordner erstellen

Hallo zusammen,

ich bräuchte wieder mal Hilfe mit VBA.
Ich habe einen Code der mir einen Ordner in einem Pfad erstellt mit einem bestimmten Namen sofern dieser noch nicht besteht. Das funktioniert bereits sehr gut.

Nun hätte ich jedoch noch gerne dass er mir in meinem Standardordner (C:UsersPublicDesktopEinsatzberichte) zuerst einen Ordner mit dem Monat anlegt (z.B 01 Jänner) wenn noch nicht vorhanden und dann darin meinen Ordner im Format Datum_Alarmstichwort_Adresse_Hausnummer anlegt und darin dann mein PDF ablegt.
Für den Monat Jänner soll dann alles im Ordner C:UsersPublicDesktopEinsatzberichte1 Jänner abgelegt werden.
Für Februar dann in C:UsersPublicDesktopEinsatzberichte2 Februar usw.

Mein Code sieht aktuell so aus:

'Erstellt einen Ordner am Laufwerk mit dem Einsatznamen
Dim Standardordner As String
Dim Name As String
Dim Pfad As String
Dim Retval As Long
Standardordner = "C:UsersPublicDesktopEinsatzberichte"
Name = Format(Date, "yyyymmdd") & " " & Left(Me.Alarmstichwort, 3) & " " & Me.Adresse & " " & Me.Hausnummer
Pfad = Standardordner & "" & Name & ""

Retval = MakeSureDirectoryPathExists(Pfad)
If Retval = 0 Then
MsgBox "Das Verzeichnis konnte nicht angelegt werden! Bitte manuell anlegen!"
Else
MsgBox "Das Verzeichnis wurde angelegt!"
End If

Danke vorab schon mal für Eure Hilfe!

:)

 

Hallo,
die Funktion MakeSureDirectoryPathExists erstellt dir ja die übergebenen Verzeichnisse. Hast du schon probiert, ob das auch mit Unterverzeichnissen funktioniert - also den Pfad incl. 01Jaenner übergeben?
In dem Fall müsstest du dann nur noch aus dem aktuellen Datum den Monat ermitteln, entsprechend formatieren und an den Pfad anhängen.
maike

 

Hallo
Danke für deine schnelle Antwort. Das bedeutet ich müsste einfach zu meiner Variable "Pfad" das Monat hinzufügen oder?

 

Ja, wenn denn die Funktion das verarbeitet. Probiers aus.
maike

 

DANKE vielmals für deine Gedankenhilfe!
Hat Perfekt funktioniert!