50分。如何实现类似windows搜索文件的功能，主要是针对文件中包含的文字进行模糊查询搜索。

[dljinsui]

如题所示！！！

最好有例程供学习。

MAIL:[e-mail]

[dljinsui]

有没有例子供学习一下。
查找文件已实现，
需要实现的是查询固定目录下与查询条件[text1.text]相匹配的文件夹。

[piccologoo]

你可以使用index service,具体可以去msdn搜索，
index serviveing

[nik_Amis]

indexing service
全文搜索服务

[nik_Amis]

index server通常指NT时代的服务

[dljinsui]

我只是想把文件夹找出来而已，有那么麻烦吗？

[dreamtou]

找文件网上很多的，用findfirstfile,findnext，写个递归函数，就可以了
如果要找文件中的内容，就先把找到的文件用流打开文件，进行匹配，一定要用流打开

[boydgmx]

'搜索文件夹
'事先添加引用：Microsoft Scripting Runtime
Private Sub Command1_Click()
Dim FSys As New FileSystemObject
Dim CurrFolder As Folder
Dim f As Folder
Dim fc As Folders

Set CurrFolder = FSys.GetFolder("D:\test")
Set fc = CurrFolder.SubFolders

For Each f In fc
If InStr(f.Name, "要搜索的文本") Then
'do what you want
End If
Next

End Sub

'那边我已经贴过一次了，不要两边都给分哦，会扣信誉值的！！

[dljinsui]

楼上的朋友能不能帮我搞定这个问题，现在只能找出搜索范围内第一级的文件名，能不能遍历所有它底级文件夹？

[dljinsui]

如果可以，分全部UP给你。

[Wang_xiaoni]

用文件查找findfirstfile，findnext打文件，然后再用流打开文件，进行匹配

[boydgmx]

其实我早就有递归遍历文件系统的代码了，
主要还是希望你能自己研究研究，也提高提高，呵呵 ：）

既然你已经完成了，那就把我写的贴出来,仅供参考：

'文件系统递归遍历
Private Sub DoRecursion(ByVal Source As String)
Dim f, fc
Set CurrFolder = FSys.GetFolder(Source)

If CurrFolder.Attributes <> (System Or Hidden Or Directory) Then
If CurrFolder.Files.Count > 0 Then
Set fc = CurrFolder.Files
For Each f In fc
If f.Attributes <> (System Or Hidden) Then
'do what you want
End If
Next
End If

'当前文件夹下还有子文件夹
If CurrFolder.SubFolders.Count > 0 Then
Set fc = CurrFolder.SubFolders
For Each f In fc
Call DoRecursion(f) '递归调用
Next
End If
End If
End Sub

****************************************************************
郑重地提醒一句：结贴吧（不管给我多少分都无所谓，因为你已经完成了）！
如果还有关于文件系统的问题，邮件联系：[e-mail]
****************************************************************

[online]

可以调用windows的文件查找功能

Private Const SW_SHOWNORMAL = 1
Private Const SW_SHOWMINIMIZED = 2
Private Const SW_SHOWMAXIMIZED = 3
Private Const SW_SHOW = 5
Private Const SW_MINIMIZE = 6
Private Const SW_SHOWMINNOACTIVE = 7
Private Const SW_SHOWNA = 8
Private Const SW_RESTORE = 9
Private Const SW_SHOWDEFAULT = 10

Private Sub Command1_Click()
Dim strPathToSearch As String
strPathToSearch = "C:\"
Call ShellExecute(Me.hwnd, "find", strPathToSearch, vbNullString, vbNullString, SW_SHOWNORMAL)

[dljinsui]

好了，完成了，还是用递归。

[dljinsui]

已经结过了，怎么还能发？
贴前面已经有了对号了啊。