aplicacion sencilla

[piojoman]

Hola!

En este ejemplo se cumple lo que pedis. Para que funcione debes agregar un textbox y un commandbutton. Podemos usar una de las referencias de VB (Proyectos -> Referencias -> Microsoft Scripting Runtime) y luego...

Private Sub Command1_Click()
Numero = Text1.Text 'Toma el valor del TextBox (Punto 1)
If IsNumeric(Text1.Text) Then '(Se fija si es un número o no)
Dim fso As FileSystemObject
Set fso = New FileSystemObject

Path = "C:\" & Text1.Text 'Directorio base
PathTemporal = "D:\Prueba\*.*" 'Supuesta carpeta temporal

With fso
.CreateFolder Path 'Crea la carpeta segun el textbox (Punto 2)
.MoveFile PathTemporal, Path 'Mueve los archivos a la nueva carpeta (Punto 3)
End With
Set fso = Nothing

Numero = Numero + 1 'Incrementa el valor del TextBox en 1 numero (Punto 4)
Text1.Text = Numero
Else
MsgBox "El TextBox no tiene solo un numero"
End If

End Sub

'NOTA: Si el directorio de origen esta vacio se producirá un error, para probar poner algun
' archivo como para probar. La ruta del temp se le debe redefinir