Hallo Forum,
ich möchte mit Ordner für Sicherungskopien erstellen.
Struktur
2009\
01
02
usw
2010\
01
usw.
Dafür habe ich eine excel liste:
in A1 steht das Jahr und in der Spalte B jeweil fortlaufend 01 bis 12
in A 13 dann das nächste Jahr
In einem anderem Forum habe ich bereits etwas gefunden was in diese Richtung geht:
Sub ordner_pruefen_und_anlegen()
Dim sVerz As String
Dim strname As String
Dim strnummer As String
Dim i As Integer
i = 1 'beginn der abfrage in zeile i
Do While Cells(i, 1) <> "" 'solange schleife bis zelle i in spalte a leer
strname = Cells(i, 1) ' name aus zeile i und spalte a
sVerz = Dir("D:\" & strname, 16) 'verzeichnis einlesen
If sVerz = "" Then MkDir ("D:\" & strname) 'prüfen ob vorhanden wenn nein dann anlegen
i = i + 12
End Sub
Das funktioniert auch ganz gut.
Jetz möchte ich wie gesagt die Unterordner erstellen lassen.
Jetzt soll abgefragt werden, ob der Überordner bereits besteht, falls er durch obige Schleife angelegt wurde. Wenn ja, dann soll nach diesem Schema jetzt in dem Ordner die Monate (01 bis 12) erstellt werden.
Bin ein Neuling und vielleicht kann mir jemand helfen
Vielen Dank im voraus
Gruß Andi
|