| Pregunta: | 28671 - COMANDO EJECUTAR WIN2000 |
| Autor: | Marcelo Barría |
| Hola, quisiera saber cómo utilizar el comando Ejecutar de windows desde visual basic 6, para poder abrir un recurso compartido: Ejemplo: al colocar en la ventana de Ejecutar... le entrego: \\equipo1\rec_1 y abre el recurso o niega el acceso, además cómo puedo rescatar el error al tener acceso denegado. | |
| Respuesta: | Roberto S. Gutiérrez Sáez |
| estimado con respecto a capturar el error coloca en tu rutina al comienzo la siguiente instruccion. ON ERROR GOTO [Aqui va el Nombre de la etiqueta] y al final de todas las instrucciones en la rutina EXIT [Procedimiento] depende si es una Function, Sub, Etc... [Nombre de la etiqueta]: MsgBox Err.Description END [Procedimiento] depende si es una Function, Sub, Etc... UN EJEMPLO: Private Sub Cmd_Guardar_Click() On Error GoTo ERRORIFICO Select Case Case End Select Exit Sub E_SQL: MsgBox Err.Description End Sub | |
| Respuesta: | Roberto S. Gutiérrez Sáez |
| estimado con respecto a capturar el error coloca en tu rutina al comienzo la siguiente instruccion. ON ERROR GOTO [Aqui va el Nombre de la etiqueta] y al final de todas las instrucciones en la rutina EXIT [Procedimiento] depende si es una Function, Sub, Etc... [Nombre de la etiqueta]: MsgBox Err.Description END [Procedimiento] depende si es una Function, Sub, Etc... UN EJEMPLO: Private Sub Cmd_Guardar_Click() On Error GoTo ERRORIFICO Select Case Case End Select Exit Sub E_SQL: MsgBox Err.Description End Sub | |