Crear Carpeta

Dim CrearFolder As Object
Dim Nombre As String
Dim Ruta As String
Private Sub Command1_Click()

    Ruta = "C:\Documents and Settings\All Users\Escritorio\"

    Nombre = 4040

    For I = 1 To 5

        Set CrearFolder = CreateObject("scripting.filesystemobject")

        CrearFolder.createfolder Ruta & Nombre

        Nombre = Val(Nombre) + 1

    Next

End Sub