Error con comando Shell en VB 6.0
Publicado por Jaime (15 intervenciones) el 02/01/2003 21:52:15
Estimados Colegas,
Junto consaludarlos y desearles un exitoso año 2003 en todos los ámbitos y junto a sus seres queridos procedo a solicitarles su colaboración para este apredíz de Visual Basic.
Cree una pequeña aplicación la cual rescata de una base de datos los accesos a sistemas que posee un usuario X, una vez que se listan los accesos a sistemas el usuario puede elejir el que desee y hacer click para ejecutarlo (el o los sistemas pueden estar instalados en el mismo PC o en un Servidor Remoto, la aplicación aún no se encuentra liberarada la los usuarios de la empresa para la cual trabajo ya que hasta el momento es un prototipo), bueno resulta que hasta la semana pasada la aplicación funcionaba correctamente y el día de hoy procedo a trabajar nuevamente en ella y antes de intervenirla procedo a ejecutarla y al seleccionar una aplicación me arroja el siguiente mensaje:
Microsoft Visual Basic
Run-time error '5':
Invalid Procedure Call or Argument.
O sea, en pocas palabras no me está reconociendo el comando "Shell", un trozo del programa que ejecuta el sistema lo describo a continuación:
Private Sub Command_Logon_Click()
Dim Ejecuta
If GrillaTxT = "" Then
Mensaje = MsgBox("Se ha detectado que Sistema elejido no posee comando de ejecución...", vbInformation, "Menú Acceso de Aplicaciones - Sistemas Autorizados")
End If
If GrillaTxT <> "" Then
Ejecuta = Shell(GrillaTxT, 1) =====> Aquí es de se cae y aparece el mensaje
End If
Esperando que alguno de Ustedes me pueda ayudar en mi problema, espero sus comentarios, atentamente.
Junto consaludarlos y desearles un exitoso año 2003 en todos los ámbitos y junto a sus seres queridos procedo a solicitarles su colaboración para este apredíz de Visual Basic.
Cree una pequeña aplicación la cual rescata de una base de datos los accesos a sistemas que posee un usuario X, una vez que se listan los accesos a sistemas el usuario puede elejir el que desee y hacer click para ejecutarlo (el o los sistemas pueden estar instalados en el mismo PC o en un Servidor Remoto, la aplicación aún no se encuentra liberarada la los usuarios de la empresa para la cual trabajo ya que hasta el momento es un prototipo), bueno resulta que hasta la semana pasada la aplicación funcionaba correctamente y el día de hoy procedo a trabajar nuevamente en ella y antes de intervenirla procedo a ejecutarla y al seleccionar una aplicación me arroja el siguiente mensaje:
Microsoft Visual Basic
Run-time error '5':
Invalid Procedure Call or Argument.
O sea, en pocas palabras no me está reconociendo el comando "Shell", un trozo del programa que ejecuta el sistema lo describo a continuación:
Private Sub Command_Logon_Click()
Dim Ejecuta
If GrillaTxT = "" Then
Mensaje = MsgBox("Se ha detectado que Sistema elejido no posee comando de ejecución...", vbInformation, "Menú Acceso de Aplicaciones - Sistemas Autorizados")
End If
If GrillaTxT <> "" Then
Ejecuta = Shell(GrillaTxT, 1) =====> Aquí es de se cae y aparece el mensaje
End If
Esperando que alguno de Ustedes me pueda ayudar en mi problema, espero sus comentarios, atentamente.
Valora esta pregunta
0