' VB Script Document

Function OdpriPDF(fajl)

     On Error resume next 
	 dim fajl2
	 fajl2 =  Replace(fajl, "/", "")
	 fajl2 =  Replace(fajl2, "..", "")
	 Set WshShell = CreateObject("WScript.Shell")  
	 If Err.Number <> 0 then
	 	window.open fajl
	else
	
     WshShell.Run ("PDFreader\FoxitReader.exe " & fajl2)
		 If Err.Number <> 0 then
			window.open fajl
		 end if
	end if
	 
End Function