ejecutar archivo de una ruta en un textbox - VB-MUNDO

Zion_Tm · #1 (**permalink**) 01-02-2007, 15:51:18

Hola vb maniacos jajajj.

Les cuento que tengo una funcion que busca un archivo en C: y si lo encuentra me muestra la ruta en un textbox.
lo que queiro hacer es que tambien busque en los otros disco duros ( C D E F G etc ) y luego de mostrarme su ruta en el texbox quiero ejecutarlo. Alguna idea de como implementarlo ?

Pongo aqui el codigo que tengo hecho :

Código:

Function PathTo(strFile As String) As String
Dim x As Integer
Dim strDirs As String
Dim strDir As String
Dim strEntry As String
strDirs = "c:\" & vbNullChar
Do While Len(strDirs)
x = InStr(strDirs, vbNullChar)
strDir = Left$(strDirs, x - 1)
strDirs = Mid$(strDirs, x + 1)
If Len(Dir$(strDir & strFile)) Then
PathTo = strDir & Dir$(strDir & strFile)
Exit Function
End If
strEntry = Dir$(strDir & "*.*", vbDirectory)
Do While Len(strEntry)
If (GetAttr(strDir & strEntry) And vbDirectory) Then
If strEntry <> "." And strEntry <> ".." Then
  strDirs = strDirs & strDir & strEntry & "\" & vbNullChar
End If
End If
strEntry = Dir$
Loop
Loop
PathTo = ""
End Function

Private Sub Command1_Click()
PathTo ("IEXPLORE.exe")
Text1.Text = PathTo("IEXPLORE.exe")
End Sub

malm82 · #2 (**permalink**) 01-02-2007, 16:07:58

prueba con esto para abrir el archivo
FilePath es la ruta del archivo

Código:

Public Sub ExecuteFile(FilePath As String)
On Error GoTo error
    Dim Ret  As Long
    Ret = Shell("rundll32.exe url.dll ,FileProtocolHandler " & (FilePath))
Exit Sub
error:      MsgBox Err.Description, vbExclamation, "Error"
End Sub

saludos desde cancun

Zion_Tm · #3 (**permalink**) 01-02-2007, 19:46:27

y esa funcion va en el general ?? la llame desde el boton asi
ExecuteFile()

y no funciona, probe de todo y me da error siempre :smt017

jrios03 · #4 (**permalink**) 01-02-2007, 20:21:00

Cita:

Empezado por Zion_Tm

y esa funcion va en el general ?? la llame desde el boton asi
ExecuteFile()

y no funciona, probe de todo y me da error siempre :smt017

No te funciona porque debes llamarla con un atributo "String"...

Supongamos que ya buscaste el archivo, y guardas la dirección en una Variable String llamada Direc_Archivo... entonces debes llamar a la función de esta manera:

Código:

ExecuteFile Direc_Archivo

Espero que te sirva mi aclaración...

Saludos...

malm82 · #5 (**permalink**) 01-02-2007, 20:31:05

efectivamente como te comenta jrios03
debes llamarla pasandole la ruta que ya tienes..
disculpa que no te haya contestado antes pero anadaba fuera de mi work

Código:

ExecuteFile "c:\archivo.avi"

saludos desde cancun

Zion_Tm · #6 (**permalink**) 02-02-2007, 08:22:15

Bueno , ahi me quedo funcionando

Código:

Function PathTo(strFile As String) As String
Dim x As Integer
Dim strDirs As String
Dim strDir As String
Dim strEntry As String
strDirs = "c:\" & vbNullChar
Do While Len(strDirs)
x = InStr(strDirs, vbNullChar)
strDir = Left$(strDirs, x - 1)
strDirs = Mid$(strDirs, x + 1)
If Len(Dir$(strDir & strFile)) Then
PathTo = strDir & Dir$(strDir & strFile)
Exit Function
End If
strEntry = Dir$(strDir & "*.*", vbDirectory)
Do While Len(strEntry)
If (GetAttr(strDir & strEntry) And vbDirectory) Then
If strEntry <> "." And strEntry <> ".." Then
  strDirs = strDirs & strDir & strEntry & "\" & vbNullChar
End If
End If
strEntry = Dir$
Loop
Loop
PathTo = ""
End Function
Public Sub ExecuteFile(FilePath As String)
On Error GoTo error
    Dim Ret  As Long
    Ret = Shell("rundll32.exe url.dll ,FileProtocolHandler " & (FilePath))
Exit Sub
error:      MsgBox Err.Description, vbExclamation, "Error"
End Sub
Private Sub Command1_Click()
PathTo ("msnmsgr.exe")
Text1.Text = PathTo("msnmsgr.exe")
'##########################################
ExecuteFile PathTo("msnmsgr.exe")
End Sub

Ahora, una pregunta: porque si quiero buscar el archivo micancionfavorita.mp3 me da error ??
sera que solo sirve para archivos.exe ??

malm82 · #7 (**permalink**) 02-02-2007, 17:13:22

yo lo he probrado con direntes archivos (incluso con mp3 y videos) y funcona perfectamente.

Zion_Tm · #8 (**permalink**) 03-02-2007, 04:19:28

Bueno , puse micancion.mp3 adentro de C:\ y lo encuentra y ejecuta bien
pero lo meti dentro de la carpeta system32 y no lo encuentra, pero si modifico la entrada de ruta en el codigo C:\WINDOWS\system32\ si lo encuentra y ejecuta bien.
Es necesario saber la ruta del archivo para poder ejecutarlo ? :smt017

Zion_Tm · #9 (**permalink**) 03-02-2007, 07:21:33

Hize un video documentando el error que me marca

Video