【マクロ】ファイルを古い順に、１個ずつ移動する

下記のやりたいマクロについて
出来るかたは教えて下さい。

下記の参考コードを利用した
簡単なものを希望します。

ご存じの方、いましたら教えて下さい。


【やりたいマクロ】
・ファイルを１つづつ移動する
・更新日時が古い順に移動する
・なるべく、下記の簡単なコードをいかしたい
・ファイルの種類は何でもOK


【マクロ】
・フォルダAからフォルダBへファイルを移動する
・ファイル個数は１回で何個でも移動する
・ファイルの種類も何でもOK

【コード】※下記は動きます
Sub AフォルダからBフォルダへファイル全てを移動()

Dim fso As New FileSystemObject
Dim aFile As String
Dim bFile As String

aFile = "C:\Users\2020\Desktop\フォルダA\*"

bFile = "C:\Users\2020\Desktop\フォルダB\"

fso.MoveFile aFile, bFile

End Sub

No.1 回答者： fujillin 回答日時： 2022/09/06 21:21

同じ内容の質問を何度も繰り返す意図は何なのでしょうね？

https://oshiete.goo.ne.jp/qa/13119613.html