Espacios en blanco en nombre de carpeta

[Miguel A.]

Buenas tardes,

Estoy intentando abrir una carpeta con el siguiente comando y todo va bien hasta que el directorio que quiero abrir (midir) contiene un espacio en blanco.

oShell = Createobject("WScript.shell")

oShell.Run("%SystemRoot%\explorer.exe /n, /select, " + midir)

He revisado varios hilos y comentarios de diversos sitios, pero no logro que se abra esa carpeta; sino que se abre otra padre, abuelo, etc. que no contenga espacios en blanco, en su nombre. 

Por favor, échenme una mano con esto. Gracias,

Miguel A.

[Víctor Hugo Espínola Domínguez]

Prueba así:

Declare Integer ShellExecute In shell32.Dll ;
Integer hndWin, ;
String cAction, ;
String cFileName, ;
String cParams, ;
String cDir, ;
Integer nShowWin

midir  = ["C:\Program Files (x86)\Common Files\Microsoft Shared\Vfp"]
cFileName = midir
cAction  = "open"
ShellExecute(0, cAction, cFileName, "", "", 1)

También funciona con 

midir  = "C:\Program Files (x86)\Common Files\Microsoft Shared\Vfp"

Saludos,

Víctor.

Lambaré - Paraguay.

--
Visita el Blog de la Comunidad Visual FoxPro en Español: http://comunidadvfp.blogspot.com
---
Has recibido este mensaje porque estás suscrito al grupo "Comunidad de Visual Foxpro en Español" de Grupos de Google.
Para cancelar la suscripción a este grupo y dejar de recibir sus mensajes, envía un correo electrónico a publicesvfoxp...@googlegroups.com.
Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/0721660c-e238-4f83-a1dd-536188475f35o%40googlegroups.com.

[Miguel A.]

Definitivamente, Víctor eres un crack. 

Funcionó a la perfección. Muchas gracias,

Miguel A.

Para cancelar la suscripción a este grupo y dejar de recibir sus mensajes, envía un correo electrónico a publice...@googlegroups.com.