'Open file:
dim oShell
dim Savefile
'----------------------------------------------------------------------------------
Set oShell = WScript.CreateObject ("WSCript.shell")
Savefile = "C:\Users\86134\Desktop\test"
oShell.run Savefile
Set oshell = nothing