Buscar ejecutables

Iniciado por XP., 3 Agosto 2006, 19:05 PM

0 Miembros y 1 Visitante están viendo este tema.

XP.

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>

_Sergi_

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
Proyecto de Ingeniero

elmaro

tmb podrias usar
MsgBox "Hola" & vbCrLf & "Hola"

Mad Antrax


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.
No hago hacks/cheats para juegos Online.
Tampoco ayudo a nadie a realizar hacks/cheats para juegos Online.