vb问题：希望可以给代码

来源：百度知道 编辑：UC知道 时间：2024/07/04 23:27:45
像在WINDOWS中的文件搜索一样，输入文件名再点“搜索”按钮就会显示系统中包含这个文件名的文件路径。

谢谢了 ， 小弟不胜感激
问题补充：是搜索本机硬盘上存储的内容

就像WINDOWS的“开始”-“搜索”-“文件或文件夹”

希望GGJJ可以给我一个程序源代码（VB）

先新建一个模块，里面添加API声明
Option Explicit
Declare Function MoveWindow Lib "user32" (ByVal hwnd As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal bRepaint As Long) As Long
Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Public Const LB_INITSTORAGE = &H1A8
Public Const LB_ADDSTRING = &H180
Public Const WM_SETREDRAW = &HB
Public Const WM_VSCROLL = &H115
Public Const SB_BOTTOM = 7
Declare Function GetLogicalDrives Lib "kernel32" () As Long
Declare Function FindFirstFile Lib "kernel32" Alias "FindFirstFileA" (ByVal lpFileName As String, lpFindFileData As WIN32_FIND_DATA) As Long
Public Const INVALID_HANDLE_VALUE = -1
Declare Function FindNextFile Lib "kernel32" Alias "FindNextFileA" (ByVal hFindFile As Long, lpFindF