Hola, necesito un code buscar dos archivos: hl.exe y cstrike.exe apartir de un boton, esto yo ya lo tenia pero lo borre y ahora lo necesito urgente ;D
y tambien
En un MSGBOX necesito escribir.. en el SEGUNDO renglon, puedo hacerlo asi
MsgBox("Hola Hola")
pero se que hay un metodo mejor, como en HTM al usar <br>
1. Es obligatorio en el éste subforo utilizar la etiqueta # code para el código.
2. ¿Buscar archivos? Es decir, ¿quieres recorrer el disco duro y buscar dónde se encuentran?
3. "Hola" & vbnewline & "Hola"
4. Conceptos básicos de VB/VBS
http://foro.elhacker.net/index.php/topic,73846.0.html
Curso de VB para principiantes
http://www.elhacker.org/index.php?Ver=Articulo&Id=272
tmb podrias usar
MsgBox "Hola" & vbCrLf & "Hola"
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.