查找文件vba

Sub test()

Dim MyFile, MyPath, MySz

MyPath = "D:/Data/z/"    ' 指定路径。' 显示 路径目录下的名称。
MySz = Dir(MyPath, vbDirectory)    ' 找寻第一项。
Do While MySz <> ""    ' 开始循环。
    If MySz <> "." And MySz <> ".." Then ' 跳过当前的目录及上层目录。
        If (GetAttr(MyPath & MySz) And vbDirectory) = vbDirectory Then '' 使用位比较来确定 MyName 代表一目录。如果是则进入操作
             MyFile = Dir(MyPath & MySz & "/*.xls") 'left(,8)??
         【=======  以下怎么判断日期最新的前5个xls文件名？==============】

                   xls文件名格式是  20071201abc.xls    20071202abc.xls    20071203abc.xls    20071205abc.xls 20071206abc.xls 等

 

         【=======  以上怎么判断日期最新的前5个xls文件名？==============】
         End If
    End If
    MySz = Dir    ' 查找下一个目录。
Loop

End Sub

 

谢谢啦~~~~~~~~~~~~~~~~~~~~