ファイルの日付順のソート

にんにん。 2006-02-01 22:55:13 No: 93903

あるフォルダにあるファイル名を取得しテキストボックに貼り付けているのですが、
これをファイルの更新日時順(新しい日付のファイルを先頭に)にソートして貼り付けるにはどうすれば良いでしょうか？

Dim Fso As FileSystemObject
Set Fso = New FileSystemObject

    ' Folder オブジェクトを取得する
    Set hFolder = Fso.GetFolder(mDir)
    mCnt = 0
    For Each hFile In hFolder.Files
        mCnt = mCnt + 1
    Next hFile

    i = 0
    ' すべてのファイルを列挙する
    ReDim mThumbnail(mCnt) As ThumbnailList
    For Each hFile In hFolder.Files
        nPrompt = nPrompt & hFile.Path

        MyStr = Right(nPrompt, Len(hFile.Path) - Len(g_picDir))

        mThumbnail(i).FILE_NAME = MyStr
        i = i + 1
    Next hFile

ガッ 2006-02-02 01:42:50 No: 93904

> あるフォルダにあるファイル名を取得しテキストボックに貼り付けているのですが、
> これをファイルの更新日時順(新しい日付のファイルを先頭に)にソートして貼り付けるにはどうすれば良いでしょうか？
ファイルの更新日は、
Fileオブジェクトの DateLastModified プロパティでしょうかね？
ソート法はネットに沢山転がっていますから割愛します。