怎么筛选指定格式的文件

如何筛选指定格式的文件？

      我用以下代码遍历指定文件夹下的文件，
Set   fso   =   CreateObject( "Scripting.FileSystemObject ")
Set   f   =   fso.GetFolder(mypath)

Set   fol   =   f.SubFolders
Set   fil   =   f.Files

Form1.List1.Clear
For   Each   i   In   fil
        MsgBox   i.Name   &   Chr(13)   &   i.DateCreated,   ,   "文件夹的相关信息 "
        Form1.List1.AddItem   i.Name
Next   i

问题：

        我不想列出全部文件，而是只列出符合格式的文件，其要求如下：
        文件名格式   ：ABCidMM.YYY
        共   11   位，其中   “ABC”——为文件标示符（即固定），id——单位编号，任意数字组合，MM——为月份，   2   位长度表示，YYY——为年份的最后三位数字。
        如，编号为78的单位的2005年2月的   ABC   文件为   ：   ABC7802.005     .
       
        请问如何之列出符合以上条件的文件？

        谢谢！

------解决方案--------------------
用MID,LEFT,RIGHT等函数截取文件名中指定部分作为条件即可.

时间那里你可以用FORMAT函数直接规范
------解决方案--------------------
友情 up 一下。

FileSystemObject.GetExtensionName(filePath as string ) ' Return extension from path


vb 虽然容易入门，可是，也需要不少的算法、逻辑的基础知识的。