Alguien me puede ayudar con esto???

[War77]

Hola, necesito un programita que me cree 3000 directorios y copie un archivo index.html en cada uno, alguien me puede ayudar? Gracias!

[rafapaskual]

Hola, ahi va un ejemplo en VB aunque te recomiendo que si tienes que hacer muchos scripts de este estilo te mires algun lenguaje como Perl que ofrece muchisima facilidad para hacer este tipo de cosas.


Private Sub Command1_Click()
Dim fs As FileSystemObject
Dim i As Integer
Dim NuevoDir As String
Dim DirRaiz As String
Dim Archivo As String
CommonDialog1.ShowOpen
Set fs = New FileSystemObject
DirRaiz = "D:\Temp"
Archivo = CommonDialog1.FileName
For i = 0 To 20
NuevoDir = DirRaiz & "\Web" & String(4 - Len(CStr(i)), "0") & i
fs.CreateFolder NuevoDir
fs.CopyFile Archivo, NuevoDir & "\"
Next
Set fs = Nothing
End Sub

Tendras que añadir la referencia Microsoft Scripting Runtime para poder crear el objeto FileSystemObject.

Saludos!