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

宁城的雪 2003-12-26 01:11:22
我有30个文件夹,每个下面有10000多个文件,其文件名有一定的规律性:xxMMDD.dbf,其中xx是任意字符,MMDD是日期的Month和Day,如ab0224.dbf,表示2月14日。我给出一个时间段,比如2003-1-1到2003-5-31,怎样在一个文件夹下快速查找匹配的文件?谢谢。
...全文
43 3 打赏 收藏 举报
写回复
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基础类

7637

社区成员

VB 基础类
社区管理员
  • VB基础类社区
加入社区
帖子事件
创建了帖子
2003-12-26 01:11
社区公告
暂无公告