有一个比较急的问题，请大家帮帮我，谢谢！

[wangwei1980]

我要通过在一个文本框中输入一个目录的名字，然后根据此名字在硬盘上进行模糊查寻，然后把结果输出来，我是通过Dirlistbox控件做的。
能给我一段小代码吗？谢谢！

[wangwei1980]

高手们请进呀，我正在线等待，非常的急

[lihonggen0]

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


HOW TO: Recursively Search Directories by Using FileSystemObject

[wangwei1980]

请再给我一段代码好吗？我的意思是说对整个硬盘进行模糊遍历,然后把所有结果输出来

[wangwei1980]

请大家赶快进来呀

[lxcc]

'一段搜索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]

楼上是个笨蛋吧?你那个叫代码吗?傻子一个吗?(^_^)