有一个比较急的问题,请大家帮帮我,谢谢!

wangwei1980 2003-05-16 03:58:24
我要通过在一个文本框中输入一个目录的名字,然后根据此名字在硬盘上进行模糊查寻,然后把结果输出来,我是通过Dirlistbox控件做的。
能给我一段小代码吗?谢谢!
...全文
7 点赞 收藏 6
写回复
6 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
wangwei1980 2003-05-16
楼上是个笨蛋吧?你那个叫代码吗?傻子一个吗?(^_^)
回复
lxcc 2003-05-16
'一段搜索doc文件的例子
'你需要找出所有硬盘的盘符,然后用CheckFolder("X:")
Option Explicit
Dim m_lngFileCount As Long '注释:定义计数器
Dim m_objFSO As Scripting.FileSystemObject '注释:定义文件系统对象

Sub CheckFolder(strPath As String)

Dim objFolder As Scripting.Folder '注释:文件夹对象
Dim objFile As Scripting.File '注释:文件对象
Dim objSubdirs As Scripting.Folders '注释:文件夹集合对象
Dim objLoopFolder As Scripting.Folder '注释:文件夹对象

Set objFolder = m_objFSO.GetFolder(strPath)

For Each objFile In objFolder.Files

If UCase$(Right$(objFile.Path, 4)) = ".doc" Or UCase$(Right$(objFile.Path, 4)) = ".DOC" Then
m_lngFileCount = m_lngFileCount + 1

End If
Next objFile

Set objSubdirs = objFolder.SubFolders
For Each objLoopFolder In objSubdirs
CheckFolder objLoopFolder.Path
Next objLoopFolder

Set objSubdirs = Nothing
Set objFolder = Nothing

End Sub
回复
wangwei1980 2003-05-16
请大家赶快进来呀
回复
wangwei1980 2003-05-16
请再给我一段代码好吗?我的意思是说对整个硬盘进行模糊遍历,然后把所有结果输出来
回复
lihonggen0 2003-05-16

微软的文章:
http://support.microsoft.com/default.aspx?scid=kb;EN-US;185601


HOW TO: Recursively Search Directories by Using FileSystemObject
回复
wangwei1980 2003-05-16
高手们请进呀,我正在线等待,非常的急
回复
相关推荐
发帖
VB基础类
创建于2007-09-28

7490

社区成员

VB 基础类
申请成为版主
帖子事件
创建了帖子
2003-05-16 03:58
社区公告
暂无公告