サーバのフォルダを開く.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 = fso.GetParentFolderName(Replace(arg, lroot, sroot)) wsh.Run "rundll32.exe url.dll , FileProtocolHandler " & s, vbNormalFocus, False next