Visual Basic para Aplicaciones - Cambiar de directorio

Life is soft - evento anual de software empresarial
 
Vista:

Cambiar de directorio

Publicado por Eduardo Negrete (6 intervenciones) el 31/12/2006 05:35:14
Hola que tal!!

Quiero ejecutar un archivo .exe hecho en c++ para ello uso
Shell(C:\Mis Documentos\Compilar.exe, vbNormalFocus)

Pero a la hora de ejecutarse me sale lo siguiente
C:\Documents and Settings\Eduardo Negrete> Empieza a ejecutarse el archivo

y lo que yo quiero es que se ejecute en el mismo directorio donde se encuentra
C:\Mis Documentos>Empieza a ejecutarse el archivo

Ya que las instrucciones que se encuentran en el programa deben de ejecutarse en ese mismo directorio, como crear y abrir archivos, etc

No se si alguien me pueda ayudar

He estado intentando con varias cosas pero ninguna meda resultado

Saludos!!!
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Cambiar de directorio

Publicado por JuanC (243 intervenciones) el 31/12/2006 11:39:05
Fijate si con esto funciona, sino deberías modificar el archivo hecho en C++
para que al ejecutarse sea él quien defina el directorio de trabajo...

Option Explicit
Private Declare Function apiShellExecute Lib "shell32.dll" _
Alias "ShellExecuteA" _
(ByVal hwnd As Long, ByVal lpOperation As String, _
ByVal lpFile As String, ByVal lpParameters As String, _
ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long

Private Const WIN_NORMAL = 1
Private Const WIN_MAX = 3
Private Const WIN_MIN = 2

Sub s()
apiShellExecute 0&, "Open", _
"Compilar.exe", vbNullString, _
"C:\Mis Documentos\", WIN_NORMAL
End Sub

Saludos desde Baires, JuanC
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar