Fiz isto porque precisei de criar 140 directorios numerados de uma só vez, e não estava com pachorra de criar um a um.
Imports System.IO
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim contador As Integer
Dim max As Integer
Dim dir As String
Dim dir2 As String dir = "c:\meudirectorio\" max = TextBox1.Text
Try
For contador = 1 To max dir2 = dir & contador Directory.CreateDirectory(dir2)
Next contador
Catch End
Try MsgBox("Pronto")
End Sub End Class
Na textbox1 é definido o numero do ultimo directório a ser criado.
Até uma proxima