気軽に「こんなソフトありませんか？」Part.165

970 ：名無しさん＠お腹いっぱい。：2014/11/24(月) 18:59:14.82 ID:yJ2eBhZV0.net

>>968
Set fso = CreateObject("Scripting.FileSystemObject")
Set objArgs = WScript.Arguments
target_folder = "E:\TEST"
fso.CopyFolder objArgs(0), target_folder & "\" & year(Now) & Month(Now) & day(Now) & hour(Now) & Minute(Now) & Second(Now)

4行をhoge.VBSで保存
フォルダ(1個だけ)を上記VBSにD&D
20141124185610 のようにE:\TEST配下へリネームコピーされる
エラー処理とか複数フォルダをコピーしたい時は自分で改良してね