1

【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を超えると、超えた分のファイルが移動せず元のフォルダに残ってしまいます。

手動で複数回実行したところ、すべてのファイルを移動できましたが、元フォルダにファイルが残っていると、当該ノードが完了とならないため、繰り返しもできません。

何か対処法がありましたら、ご教授いただければ幸いです。よろしくお願いいたします。

この質問は解決済みのためクローズされています。
HARUNA 編集済みのコメント
回答とコメントは、会員登録(無料)で閲覧できるようになります。