Ordnerbaum per VBA anlegen
16.10.2017 11:17:20
Harald
ich möchte aus wöchentlichen Meldungen einen Archiv- Ordnerbaum anlegen.
Die Ordner sollen aus Zellwerten angelegt werden, falls noch nicht vorhanden.
Die Ordner sollen aber erst angelegt werden, wenn sie benötigt werden.
Mein fester Pfad lautet: F:\Wochenmeldung\Archiv
1) Bei Makrostart soll geprüft werden, ob im Archiv bereits ein Ordner mit dem Wert aus Zelle R1 (z.B. "Jahr 2017") besteht.
Wenn nicht, Ordner anlegen.
2) Bei Makrostart soll geprüft werden, ob im Archiv bereits ein Ordner mit dem Wert aus Zelle R1 (z.B. "Jahr 2017") und ein Unterordner mit dem Wert aus Zelle R2 (z.B. "Jahr 2017 KW 42") besteht.
Wenn nicht, Unterordner Jahr-Kalenderwoche (JJJJ KW 00) im Ordner Jahr (JJJJ) anlegen.
Ich hoffe, dass ich mich verständlich ausgedrückt habe und mir jemand eine fertige Lösung als "Ausbau/Erweiterung" des nachfolgenden Codes liefern kann.
Eine Beispielsdatei kann leider nicht upgeloaded werden, da dieses von unserer Firmen- IT geblockt wird.
In A1 steht der Datumswert. In Zelle R1 (Jahr JJJJ) und R2 (Jahr JJJJ KW 00) stehen die Werte (ermittelt und formatiert aus Zelle A1 = Tagesdatum) für die Anlage der Ordner, falls noch nicht vorhanden.
Vielen Dank im Voraus und Grüße
Harald
Sub NEUEN_ORDNER_AUS_ZELLWERT_WENN_NOCH_NICHT_VORHANDEN()
'Neuen Ordner aus Zellwert A1 per VBA anlegen, falls noch nicht vorhanden
If Dir("F:\Wochenmeldung\Archiv\ZELLWERT_R1", vbDirectory) = "" Then
MkDir ("F:\Wochenmeldung\Archiv\ZELLWERT_R1")
MsgBox "Ordner '' ZELLWERT_R1 '' wurde angelegt!"
Else
MsgBox "Ordner '' ZELLWERT_R1 '' ist vorhanden!"
End If
End Sub