Ordnerpfad und Ordner anlegen
21.02.2018 12:16:08
Herbert
in meiner Tabelle soll in Spalte A1 ein anzulegender Ordnerpfad (z.B. C:\temp) hinterlegt werden.
Die Zellen ab A3 sollen die jeweils anzulegenden Ordnernamen enthalten.
Ich habe diesen Code verwendet, der leider nicht die automatische Erstellung des Ausgangsordners übernimmt:
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
strnummer = Cells(i, 2) ' nummer aus zeile i und spalte b
sVerz = Dir("C:\Temp\" & strname & strnummer, 16) 'verzeichnis einlesen
If sVerz = "" Then MkDir "C:\Temp\" & strname & strnummer 'prüfen ob vorhanden wenn nein dann _
anlegen
i = i + 1 ' zeile um eins erhöhen
Loop 'schleifen ende
End Sub
Vielen Dank vorab!
