Office中国论坛/Access中国论坛

标题: 如何用access调用windows的搜索功能 [打印本页]

---

作者: liangzhenye    时间: 2008-2-23 11:24
标题: 如何用access调用windows的搜索功能
就是access库有相关的产品分类, 如相机套有型号:T142 , B426  ,要查找的图片的文件名如,(DBO-T142-01.jpg   , BCC-B426-03.jpg)  如何实现搜索所有相机套的图片

---

作者: fan0217    时间: 2008-2-23 13:02

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    时间: 2008-2-23 13:45
不错的代码, 收藏了

---

作者: liangzhenye    时间: 2008-2-23 16:05
怎样才能指定文件名,   如 *DBO*.jpg

---

作者: t小宝    时间: 2008-2-23 22:47
学习啊。。。。。。

---

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)

Powered by Discuz! X3.3