agregar
necesito saber como llamo a archivo de ayuda (hlp) desde un formulario de visual basic 6.0
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