如何筛选指定格式的文件?
我用以下代码遍历指定文件夹下的文件,
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 虽然容易入门,可是,也需要不少的算法、逻辑的基础知识的。