Abrir imagen en el paint con VBS

[santizuche]

Hola buenas noches,
Parece tonto pero me esta matando y no se como resolverlo, en fin
No se si este tema va en esta sección. Lo que yo busco es copiar el código para solucionar esto en un bloc de notas con la terminación .vbs y aprender.
::--------------------Problema
Yo tengo una carpeta que se llama "Imagen" esta contiene un archivo llamado "perro.png" , esta carpeta se encuentra en el escritorio con el archivo .VBS
Creo que la ruta seria esta ( ".\Imagen\perro.png" )
La cuestion es que yo se abrir el paint, pero no puedo abrir la imagen en el mismo

::----------MiCodigo
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run ("mspaint") , 9
::----------MiCodigo

::--------------------Problema
Gracias por verlo e intentar ayudarme, saludos
Si no llego a ser claro, estoy atento para responder

[LeandroA]

Hola mira creo que asi:
hay dos formas una tomando como base la misma ruta que el .vbs y la otra utilizando la ruta del escritorio.

Código [Seleccionar] Expandir

Set WshShell = WScript.CreateObject("WScript.Shell")
'WshShell.Run "%windir%\system32\mspaint.exe " & chr(34) & left(WScript.ScriptFullName,instrrev(WScript.ScriptFullName,"\")) & "Imagen\35737.png" & chr(34)
WshShell.Run "%windir%\system32\mspaint.exe " & chr(34) & WshShell.SpecialFolders("Desktop") & "\Imagen\35737.png" & chr(34)

[santizuche]

Gracias por responder!
Me funciono, lo cambie un poco tenias un error en el primero que no andaba pero lo corregí tenia un (') de mas, quedo asi:

::----------------------------------Solución

Código [Seleccionar] Expandir


Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "mspaint.exe " & chr(34) & left(WScript.ScriptFullName,instrrev(WScript.ScriptFullName,"\")) & "Archivo\perro.png" & chr(34)

::----------------------------------Solución