Snippet de Codigo VB.NET pra criar directorios

Aqui fica um exemplo de codigo de como criar directorios numerados sequencialmente em vb.net.

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