1,486
社区成员
发帖
与我相关
我的任务
分享怎样调用ＷＩＮＤＯＷＳ中资源管理器的搜索功能？
在程序中想对目录文件进行搜索，包括文件内容的搜索，就象资源管理器的搜索功能一样．本想自己写一个这方面的控件来实现，但一直找不到头绪．如果能直接调用系统的这个功能就好了，有高手能指点一下怎样调用吗？
...全文
请发表友善的回复…
发表回复
VBDN 2005-11-06
- 打赏
- 举报
关注
northwolves 2005-11-06
- 打赏
- 举报
http://www.codeguru.com/vb/controls/vb_file/article.php/c3027/
northwolves 2005-11-06
- 打赏
- 举报
其实调用WORD的对话框也不错，如：
'引用MS OFFICE，MS WORD
好象是这样，这个机子竟然没装OFFICE，晕。。
DIM MYDOC AS NEW WORD.APPLICATION
MYWORD.DIALOGS(WDDIALOGFILEFIND).SHOW
'引用MS OFFICE，MS WORD
好象是这样，这个机子竟然没装OFFICE，晕。。
DIM MYDOC AS NEW WORD.APPLICATION
MYWORD.DIALOGS(WDDIALOGFILEFIND).SHOW
milchcow 2005-11-06
- 打赏
- 举报
肯定要返回结果的呀，但是要是用ＤＩＲ函数的话就不能实现搜索文件中包含有某一个字或词组的文件了，想调用系统中的搜索功能，主要就是想用这个功能来实现轻量级的全文搜索
rainstormmaster 2005-11-06
- 打赏
- 举报
//如果能直接调用系统的这个功能就好了，有高手能指点一下怎样调用吗？
如果只是调用搜索功能，而不需要返回结果的话，上面的回答就可以了，如果需要返回搜索的结果，则需要回调，但这会使程序不稳定，如果是我的话，我宁愿递归调用dir函数
如果只是调用搜索功能，而不需要返回结果的话，上面的回答就可以了，如果需要返回搜索的结果，则需要回调，但这会使程序不稳定，如果是我的话，我宁愿递归调用dir函数
northwolves 2005-11-05
- 打赏
- 举报
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Sub Command1_Click()
ShellExecute hwnd, "find", "c:\windows", vbNullString, vbNullString, 5
End Sub
Private Sub Command1_Click()
ShellExecute hwnd, "find", "c:\windows", vbNullString, vbNullString, 5
End Sub
