Dir関数の呼び出しでタイムスタンプの昇順にSortしたい

Question

下記コードを使用してフォルダ内のファイルを順に処理しようとしているのですが、
ディスクのフォーマットがNTFSのためファイル名の昇順でファイル名が返ってきます。
これをタイムスタンプの昇順に返す方法はありませんでしょうか。

Const Path As String = "Path"
Dim File As String
File = Dir(Path & "*.xls")

For i = 1 To 1000
処理
File=()
Next

Answer 1

Dir関数では流石に限界ありますね。
FileSystemObjectを使うとファイルの作成日などの情報を取得できますよ。

Comments

[MiktS]

ご回答ありがとうございます。
参考にしてコードを書いてみようと思います。

[stdio]

この方法でも、ttyp03さんの方法でも、結局はソートいるのだけどね...
その時はご自身で実装して下さいね。

Answer 2

Dir関数自体にはそのような機能はありませんので、他の関数と組み合わせる必要があります。
FileDateTime関数で更新日付が取得できます。
Dir関数でファイル名を取得したら、一緒に更新日付も取得して、配列か何かに格納。
全て取得完了後に更新日付でソートする。
こんな感じの処理になると思います。

余談ですが「マッチング」という言葉は「照合」とか「突合せ」の意味なので、今回のような場合には使いません。

Comments

[MiktS]

ご回答とご指摘ありがとうございます。
あまりvbaを使いこなせていないので上手くできるかわかりませんが、ご助言に沿って一旦自力でやってみます。