comando SHELL en visual basic

[sebastianarroyo]

hola, me encuentro con un problema.
Realize una aplicacion que utiliza un programa exe externo.
El problema es que no se porque dejo de funcionar todo lo referido a SHELL en la aplicacion o en alguna nueva que intente hacer.
el error es este:
Llamada a procedimiento o argumento no validos

esta es la llamada:
Shell "c:\Sound Media\sndvol32.exe"

Gracias a quien me pueda ayudar!
Sebastian

[vincent]

Ni idea de VB, pero en general, el tema de las contrabarras suele dar pol saco...

[bnl]

quiza sea por el espacio de "sound media".
quiza debas poner el nombre de MS-DOS con el tipico ~

No se si sera eso.

[[EX3]]

Los espacios no son problema para la instruccion Shell de VB ni tampoco la del API de Windows al menos en los 6 años que llevo programando en VB 6.0. He probado con esta ruta que tambien tiene espacios y me ha funcionado correctamente:

Código [Seleccionar] Expand

Shell "D:\Archivos de programa\Microsoft DirectX SDK (August 2006)\Utilities\Bin\x86\DXCapsViewer.exe"

Ademas, el error 5 no es señal de que la ruta no exista, en todo caso saltaria el error 53 (archivo no encontrado) o el error 76 (ruta no valida o no existe). Revisa tu codigo por que dicho error te lo provocara otra instruccion.

Salu2...

[Astaroth]

Pués si que es raro.

Prueba esto:

Dim InutilVar
InutilVar = Shell("c:\Sound Media\sndvol32.exe",1)

Si no te va, prueba con la API:

Private Declare Function ShellExecute 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

Dim InutilVar as Long
InutilVar = ShellExecute(0&, "open", "c:\Sound Media\sndvol32.exe", 0&, vbNullString, SW_NORMAL)

Funciona?