現在、特定のフォルダから所定のフォルダへ大量のファイルを一括で移動させるシナリオを作成しています。

以下スクリプトで対応しています。

srcFolder = !移動元フォルダ!
dstFolder = !移動先フォルダ!

Set objShell = WScript.CreateObject("WScript.Shell")

cmd = "cmd /c mkdir """ & dstFolder & """"
Set objExec = objShell.Exec(cmd)
Do While objExec.Status = 0
WScript.Sleep 300
Loop
Set objExec = Nothing

cmd = "cmd /c FOR %i IN (""" & srcFolder & "\*"") DO MOVE /Y ""%i"" """ & dstFolder & "\%~nxi"""
Set objExec = objShell.Exec(cmd)
Do While objExec.Status = 0
WScript.Sleep 300
Loop
Set objExec = Nothing

cmd = "cmd /c FOR /D %i IN (""" & srcFolder & "\*"") DO ROBOCOPY /MOVE /E ""%i"" """ & dstFolder & "\%~nxi"""
Set objExec = objShell.Exec(cmd)
Do While objExec.Status = 0
WScript.Sleep 300
Loop
Set objExec = Nothing

Set objShell = Nothing

試しに移動元フォルダに10ファイルを配置して実行したのですが、10ファイル中8ファイルまでしか移動できませんでした。

スクリプト実行のノードで止まったまま先へも進めず困っています。

想定としては、100近くのファイルを日常的に移動させるシナリオになる予定です。

大量のファイルをスクリプトで移動させる方法をぜひご享受いただきたいです。