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" ) E…

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" ) E…

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" ) E…

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" ) E…

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" ) E…

const lroot = "C:\temp\" const sroot = "\\server\hoge\fuga\" const vbNormalFocus = 1

「サーバとローカルのパス.txt」にルートとなるパスを設定し、send toへvbsのショートカットを作成して使います。一番使いそうなのは「ローカルで開く.vbs」エクスプローラでサーバのフォルダを開いて \\server\hoge\fuga\piyo\puyo\poyo.xls を右クリック->…