- VBScriptについて必死に話し合うスレ [転載禁止]©2ch.net
461 ：デフォルトの名無しさん[]：2015/07/12(日) 16:30:08.94 ID:w6PKkSwo - こんにちは VBScript初心者です。よろしくお願いします。
フォルダの移動をVBScriptで出来るようにしたいと思ってます。条件としては、
１ 移動したいフォルダがどのドライブにあっても、指定したフォルダに移動。
２ フォルダ内のファイルやサブフォルダも一緒に移動。
３ 移動先に同名のフォルダがある場合は自動でリネーム、もしくは上書き。
（どちらかができればOK）
４ これらを確認のダイアログを出さずに実行。
少し調べてみて以下のように記述してみましたが、パスが見つかりませんというエラーが出てしまいます。
どのように書き直せばよいか教えていただけると嬉しいです。よろしくお願いします。
以下はテスト用に記述したので、移動元、移動先は上に書いた条件に当てはまってないです。
Option Explicit
Dim objFileSys
Dim strScriptPath
Dim strMoveFrom
Dim strMoveTo
Set objFileSys = CreateObject("Scripting.FileSystemObject")
strScriptPath = Replace(WScript.ScriptFullName,WScript.ScriptName,"")
strMoveFrom = objFileSys.BuildPath(strScriptPath, "D:\aaa")
strMoveTo = objFileSys.BuildPath(strScriptPath, "D:\backup\")
objFileSys.MoveFolder strMoveFrom, strMoveTo
WScript.echo "[aaa] を [BackUp] に移動しました。"
Set objFileSys = Nothing
|