VBS Parameters

[Mangix]

here's the story. i am trying to make a right click menu which is supposed to re-compress a PNG file using IrfanView. the right click menu calls a .bat file named cvrtopng.bat which has the following.

cd "C:\Program Files\IrfanView"
cvrtopng.vbs %1

the cvrtopng.vbs file has the following code.

If WScript.Arguments.Count = 1 Then
	orgName = WScript.Arguments.Item(0)
	savName = Replace(orgName, ".png", "-compressed.png")
	Set WshShell = WScript.CreateObject("WScript.Shell")
	WshShell.Run("C:\Program Files\IrfanView\i_view32.exe" & orgName & "/convert=" & savName)
Else
	MsgBox("Use the parameters properly, b***h!")
End If

the problem is, a messagebox appears and says it can't find the file. the line is 5 and the char is 2(which seems weird). so can anyone tell me how to fix this?

[gunsmokingman]

Try this

Set WshShell = CreateObject("WScript.Shell")
	IrfanView = WshShell.ExpandEnvironmentStrings("%ProgramFiles%\IrfanView\i_view32.exe")
	WshShell.Run(Chr(34) & IrfanView & Chr(34)  & " " & orgName & " /convert=" & savName)
Else

[Mangix]

that works like a charm. Thank You!

[gunsmokingman]

Your welcome glad I was able to help.