ファイル移動(複数/大量/数可変)で一部のファイルが残ってしまう
【2022/1/22修正】
皆さま、たくさんの対処法をおよせいただきありがとうございます。
まだ試せておらず、申し訳ありません・・・。
ロボを確認したところ、「現在の設定」について誤りがありましたので追記いたします。
■やりたいこと
フォルダ内のファイルをすべて別のフォルダに移動
■現在の設定
既存ライブラリ「ファイル移動」を利用し、移動元・移動先ともにフォルダパスを設定
Scriptが既存ライブラリ「ファイル移動」とは異なりました。以下の通りです。
***
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
***
■問題点
ファイル数が24を超えると、超えた分のファイルが移動せず元のフォルダに残ってしまいます。
手動で複数回実行したところ、すべてのファイルを移動できましたが、元フォルダにファイルが残っていると、当該ノードが完了とならないため、繰り返しもできません。
何か対処法がありましたら、ご教授いただければ幸いです。よろしくお願いいたします。