怎样在一个文件夹下快速查找匹配的文件

宁城的雪 lijoy 技术经理  2003-12-26 01:11:22
我有30个文件夹,每个下面有10000多个文件,其文件名有一定的规律性:xxMMDD.dbf,其中xx是任意字符,MMDD是日期的Month和Day,如ab0224.dbf,表示2月14日。我给出一个时间段,比如2003-1-1到2003-5-31,怎样在一个文件夹下快速查找匹配的文件?谢谢。
...全文
25 点赞 收藏 3
写回复
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
xzp1030 2003-12-26

Private Function FileCountOFFolder(ByVal srhname As String) As Long
Dim fso As FileSystemObject
Set fso = New FileSystemObject
Dim f As Files
Set f = fso.GetFolder("E:\mydocment").Files
FileCountOFFolder = f.Count
For Each f1 In f
If srhname = f1.Name Then
MsgBox "找到了"
End If
Next
End Function



Private Sub Command1_Click()
Call FileCountOFFolder("ip.xls")
End Sub
回复
felix 2003-12-26
dir("*MMDD.dbf")<>""
回复
liuyanghe111 2003-12-26
直接用dir函数判断文件是否存在
回复
发动态
发帖子
VB基础类
创建于2007-09-28

7450

社区成员

VB 基础类
申请成为版主
社区公告
暂无公告