agregar

rodrigo tapia
04 de Agosto del 2004
necesito saber como llamo a archivo de ayuda (hlp) desde un formulario de visual basic 6.0

krizall
04 de Agosto del 2004

Dim strFic As String
Dim strParam As String

strFic = "Notepad.exe"
strParam = "C:Autoexec.bat"

Shell strFic & " " & strParam, vbNormalFocus

MsgBox "Se est ejecutando el Notepad"

Si el programa a ejecutar no existiera, se producira un error interceptable, por tanto, para prevenir estos casos, podramos aadir unas lneas ms al ejemplo:


Dim strFic As String
Dim strParam As String

' Esto es para el caso de que el programa a ejecutar no exista
On Local Error Resume Next

' Espero que no tengas un programa que se llame as... 8-)
strFic = "NoExiste.exe"
strParam = "Dar_Error"

Shell strFic & " " & strParam, vbNormalFocus

' Si se produce un error, lo comprobamos aqu
If Err Then
MsgBox "Se ha producido el siguiente error:" & vbCrLf & _
Err.Number & ", " & Err.Description & vbCrLf & _
"al intentar ejecutar:" & vbCrLf & _
strFic & " " & strParam
Else
MsgBox "Se est ejecutando: " & strFic & " " & strParam
End If

' Nos aseguramos que el valor del error sea cero
Err = 0



este codigo fue bajado desde www.elguille.info/indice.asp

espero te sirva