ローカルのファイルを開く.vbs

Option Explicit

dim wsh
set wsh = CreateObject("WScript.Shell")

dim fso
set fso = CreateObject("Scripting.FileSystemObject")

dim cfg
cfg = fso.BuildPath( _
         fso.GetParentFolderName(WScript.ScriptFullName), _
         "サーバとローカルのパス.txt" )
ExecuteGlobal fso.OpenTextFile(cfg).ReadAll

dim arg
for each arg in WScript.Arguments
  dim s
  s = Replace(arg, sroot, lroot)
  wsh.Run "rundll32.exe url.dll , FileProtocolHandler " & s, vbNormalFocus, false
next