(VBA) Dir 関数で取得するファイル一覧の順序

タイトルの通り、下記のサンプルコードを実行して取得するファイル一覧の順序についての質問です。

Public Sub Test1()
Dim WSH As Object
Dim MyPath As String
Dim MyFileName As String

Set WSH = CreateObject("WScript.Shell")
MyPath = WSH.SpecialFolders("MyDocuments")

MyFileName = Dir(MyPath & "\" & "*.*")
Do Until MyFileName = ""
MsgBox MyFileName
MyFileName = Dir
Loop

Set WSH = Nothing
End Sub

（質問）
ファイル名の昇順では取得できないようですが、もしファイル名の昇順に並べ替えるとしたら、
どのように処理したらよいのでしょうか？

No.1 ベストアンサー 回答者： hana-hana3 回答日時： 2006/05/13 20:29

＞もしファイル名の昇順に並べ替えるとしたら、

１．ファイル名を配列に取り込む。
（もしくは、セルに記入）
２．適当なソート法のプログラムで配列内容をソート。
（セルに記入した場合は、並べ替えを行う）

この回答への補足

ネット検索でサンプルをいくつか確認しましたが、
ファイル名の数はそれほど多くないので、単純な
SelectionSort を利用しようと思います。

ありがとうございました。

補足日時：2006/05/13 21:32

この回答へのお礼

ご回答ありがとうございます。

やはり、配列を利用するのですね。
配列の並べ替えはどのように記述するのが一般的ですか？
（何とかなりそうな気もしますが、自己流なので詳しい方の方法を知りたいです。）

※Excel で処理するか Access で処理するかはまだ決めていません。
　ですので、ワークシートは利用しません。

お礼日時：2006/05/13 20:48