MkDir Problem
25.08.2006 14:46:34
Alexander
hab so ein ähnliches Problem vor ein paar Tagen gepostet.
Meine heutige fragestellung:
Ich möchte aus einer Excel Spalte automatisiert Ordner auf dem Laufwerk C:\Lieferanten erstellen.
code:
Sub Ordner_automatisiert_anlegen()
Dim Zähler As Integer
Dim Dateiname As String
Dim Lieferantenspalte As Integer
Lieferantenspalte = 1
Zähler = 1
While Worksheets("Tabelle1").Cells(Zähler, Lieferantenspalte) <> "":
Dateiname = Cells(Zähler, Lieferantenspalte)
MkDir "c:\Lieferanten\" & Dateiname
Zähler = Zähler + 1
Wend
End Sub
Dieser Code funktioniert ja Problemlos, nur möchte ich nun auch noch in jeden Ordner automatisch Unterordner anlegen.
Das heisst: 1) 1 Ordner anlegen (und darin gleich noch 4 Ordner darunter anlegen (diese ordner heissen immer gleich))
2) 2 Ordner anlegen..........
kann mir da wer helfen?
Danke