La Web del Programador: Comunidad de Programadores
 
    Pregunta:  61654 - ABRIR UN ARCHIVO EJECUTABLE DESDE ACCESS 2007
Autor:  Carlos Gutiérrez
Buenas Tardes

Ojalá me puedan ayudar, tengo una base de datos en access 2007, solo quiero ejecutar una macro que me mende abrir-ejecutar un archivo ejecutable (.exe) que está en un servidor

Gracias

  Respuesta:  Lenin Valderrama Alvis
Debe colocar el siguiente código donde quiere que le ejecute:

Set fs2 = CreateObject("Scripting.FileSystemObject")
If fs2.FileExists(via & "musikhimnos" & "zztimbre.mp3") Then 'Por si borran el archivo no se ejecute
cade = programa & via & "musikhimnos" & "zztimbre.mp3"
comando = Shell(cade, 1)
End If

En el anterior codigo la variable programa contiene la ubicación del programa con el que voy a abrir el archivo zztimbre.mp3. Si quiere ejecutar el paint puede ser solo colocar:

Set fs2 = CreateObject("Scripting.FileSystemObject")
cade = "c:windowsmspaint.exe"
comando = Shell(cade, 1)
End If