** NORMAS DEL FORO **
Inicio del foro Inicio del foro > Access y VBA > Access y VBA
  Mensajes nuevos Mensajes nuevos RSS - Funcion shell
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

Tema cerradoFuncion shell

 Responder Responder
Autor
Mensaje
Speed Julius Ver desplegable
Nuevo
Nuevo
Avatar

Unido: 26/Octubre/2016
Localización: Mexico
Estado: Sin conexión
Puntos: 1
Enlace directo a este mensaje Tema: Funcion shell
    Enviado: 26/Octubre/2016 a las 17:33
Buenos dias.
Estoy realizando una pequeña aplicacion, mediante la cual mando imprimir una Etiqueta a varias impresoras de red.
Esto lo estoy haciendo mediante la funcion shell.
La Pregunta que tengo es como puedo saber si al momento de llamar esta instruccion me marca error.

Sintaxis
Shell "NET USE LPT1: \\" & Compu & "\" & LineaT


Arriba
lbauluz Ver desplegable
Administrador
Administrador
Avatar

Unido: 29/Marzo/2005
Localización: Binghamton NY.
Estado: Sin conexión
Puntos: 3435
Enlace directo a este mensaje Enviado: 26/Octubre/2016 a las 22:11
Mira a ver si esto te vale

Sub test1()

Dim objWinShld As Object
Set objWinShld = VBA.CreateObject("WScript.Shell")
Dim bWaitToEnd As Boolean
Dim bWindowStyle As Integer
Dim strCommand As String

bWaitToEnd = False
bWindowStyle = 1 ' O el modo que prefieras
 
strCommand = "c:\temp\mybatfile.bat" ' O lo que quieras ejecutar

On Error GoTo lblError

If (objWinShld.Run(strCommand, bWindowStyle, bWaitToEnd) <> 0) Then
    MsgBox "Programa ha generado un error"
End If
Exit Sub

lblError:
 MsgBox "Programa ha generado un error"

End Sub

Luis
El Búho es mi ídolo caido
Arriba
 Responder Responder
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable