abrir exe con parametros

[oscarleon]

hola empece ayer en visual :) y estoy intentando crear un proyecto para reducir el tamaño de las imagenes jpg, en el cual yo le ponga la ruta que quiero reducir y con el comando shell abrir PVW32Con.exe (q es un programa para reducir jpg,bmp.... de tamaño) pero tengo un problema.

el programa este funciona en dos y con comandos, os pongo un ejemplo:

si pongo
Private Sub Command1_Click()
Shell "PVW32Con.exe *.* -j --g --jq025 --o d:/1\ ", vbHide
End Sub

lo q hace es q todas la imagenes q haya en el directorio del programa me las reduce un 25 % y me las copia al directorio d:/1

pero yo lo q quiero es poner un textbox donde poner yo la ruta q quiero comprimir y luego darle la orden a programa con los demas parametros xq sino no funciona.

bueno no se si me habre explicado bien pero bueno si alguien lo entiende q me diga lo q tengo q hacer.

si pongo Private Sub Command1_Click()
a = Text1.text
Shell "PVW32Con.exe a -j --g --jq025 --o d:/1\ ", vbHide
End Sub

no me fuciona xq el programa no entiende la variable a.

bueno si lo entendisteis echarme un cable.
gracias

[RadicalEd]

Código:

a = Text1.text
Shell "PVW32Con.exe" & a & " -j --g --jq025 --o d:/1\ ", vbHide

Ojala te sirva.
Chao

[oscarleon]

lo primero de todo GRACIAS por contestar.

he puesto el codigo y me da error de ejecucion, pero retocandolo un poco

Sub Command1_Click()
a = Text1.Text
Shell "PVW32Con.exe" & a & " *.* -j --g --jq025 --o d:/1\", vbHide
End Sub

me comprime solo las fotos q esten dentro del directorio del programa, pero cuando cambio de directorio pum error ejecucion

mirandolo un poco yo pienso q el problema esq la variable &a& no le esta llegando al programa PVW32Con.exe como una orden y toma directamente la direccion donde la aplicacion se encuentra pero no la que yo le quiero poner.

bueno si se os ocurre algo decirmelo yo voy a seguir investigando.

gracias

[RadicalEd]

Separa la variable asi:

Código:

Private Sub Command1_Click()
a = Text1.Text
Call Shell ("PVW32Con.exe " & a & " *.* -j --g --jq025 --o d:/1\", vbHide) 'De pronto el "d:" no deberia ir con un "\"; {("PVW32Con.exe " & a & " }, mira los epacios que hay
End Sub

Ojala te sirva.
Chao