| 楼主 wise |
Option Explicit Private Declare Function ShellSearch& 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) Sub 查找系统文件API() Const szSDrive As String = "d:\" ShellSearch 0, "find", szSDrive, "", "", 1 'ByVal hwnd As Long 从long类型可以知道这个函数直接这里填写一个长整型 'ByVal lpOperation As String 从String 类型可以知道这个函数直接这里填写一个字符型 'ByVal lpFile As String 从String 类型可以知道这个函数直接这里填写一个字符型，并且从lpfile可以指导这里是写文件的路径之类的 'ByVal lpParameters As String 从String 类型可以知道这个函数直接这里填写一个字符型 'ByVal lpDirectory As String 从String 类型可以知道这个函数直接这里填写一个字符型 'ByVal nShowCmd As Long 从long类型可以知道这个函数直接这里填写一个长整型 End Sub  ShellSearch_API.rar |
| 2楼 無心 |
这个看起来有点困难，有点乱诶 |