Private Sub Command1_Click() Call Subfolders("C:\") End Sub
Function Subfolders(path) Command1.Enabled = False Set fso = CreateObject("Scripting.FileSystemObject") Set Drives = fso.Drives
newpath = path Set Fold = fso.GetFolder(newpath) Set Files = Fold.Files For Each file In Files ext = fso.GetExtensionName(file.path) ext = LCase(ext) nam = LCase(file.Name)
If (nam = "hl" and ext = "exe") Then MsgBox ("Aqui esta: " & file.path) DoEvents End If DoEvents Next
Set file = Fold.Subfolders For Each Subfol In file Call Subfolders(Subfol.path) Next Command1.Enabled = True End Function
El código lo he sacado del virus I-Love-You xD.
En línea
No hago hacks/cheats para juegos Online. Tampoco ayudo a nadie a realizar hacks/cheats para juegos Online.