Ordnerpfad und Ordner anlegen

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