Private Sub Command1_Click()
  Dim Fold As String
  Dim Fest As String
  Dim NR As String
  Dim Zaehler As String
 
  Zaehler = 34
  Do While Zaehler < 287
    Fold = CStr(Fest) & CStr(NR)
    MkDir ("C:\Dokumente und Einstellungen\Robbi\Desktop\testordner\" & Fold)
    Zaehler = Zaehler + 1
  Loop
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de