如何用access调用windows的搜索功能

liangzhenye

就是access库有相关的产品分类, 如相机套有型号:T142 , B426  ,要查找的图片的文件名如,(DBO-T142-01.jpg   , BCC-B426-03.jpg)  如何实现搜索所有相机套的图片

fan0217

1. Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
   
2. (ByVal hwnd As Long, ByVal lpOperation As String, _
   
3. ByVal lpFile As String, ByVal lpParameters As String, _
   
4. ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
   
5. 
   
6. '定义常量参数
   
7. Private Const SW_SHOW = 5
   
8. 
   
9. '通用调用查找函数
   
10. Public Sub ShowFindDialog(Optional InitialDirectory As String = "")
    
11. 
    
12. ShellExecute 0, "find", InitialDirectory, vbNullString, vbNullString, SW_SHOW
    
13. 
    
14. End Sub
    
15. 
    
16. Sub Test()
    
17. Call ShowFindDialog("C:\Program Files")
    
18. End Sub

复制代码

[ 本帖最后由 fan0217 于 2008-2-23 13:47 编辑 ]

tmtony

不错的代码, 收藏了

liangzhenye

怎样才能指定文件名,   如 *DBO*.jpg

t小宝

学习啊。。。。。。