VBScript版 ' このスクリプトファイルを実行するには RichCopy.exe が必要です。 ' RichCopy.exe は下記のサイトからダウンロードすることができます。 ' ' UtilitySpotlight ' http://technet.microsoft.com/ja-jp/magazine/2009.04.utilityspotlight.aspx '…

バッチファイル版 @echo off rem このバッチファイルを実行するには robocopy.exe が必要です。 rem robocopy.exe は下記のリソースキットに同梱されています。 rem このリソースキットは WindowsXP SP1以降 で使用することができます。 rem Windows Server …

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 を右クリック->…