〖1〗问题遇到的现象和发生背景
我想使用VBA调用everything实现电脑文件检索的效果,但是不能实现我要的效果,请各位道友帮帮忙
〖2〗 用代码块功能插入代码,请勿粘贴截图
Public Declare PtrSafe Function Everything_SetSearchW Lib "D:\4--Software\Everything\Everything-SDK\Everything-SDK\dll\Everything64.dll" (ByVal search As String) As Integer
Public Declare PtrSafe Function Everything_SetRequestFlags Lib "D:\4--Software\Everything\Everything-SDK\Everything-SDK\dll\Everything64.dll" (ByVal dwRequestFlags As Integer) As Integer
Public Declare PtrSafe Function Everything_QueryW Lib "D:\4--Software\Everything\Everything-SDK\Everything-SDK\dll\Everything64.dll" (ByVal bWait As Integer) As Integer
Public Declare PtrSafe Function Everything_GetNumResults Lib "D:\4--Software\Everything\Everything-SDK\Everything-SDK\dll\Everything64.dll" () As Integer
Public Const EVERYTHING_REQUEST_FILE_NAME = &H1
Public Const EVERYTHING_REQUEST_PATH = &H2
Public Const EVERYTHING_REQUEST_FULL_PATH_AND_FILE_NAME = &H4
Public Const EVERYTHING_REQUEST_EXTENSION = &H8
Public Const EVERYTHING_REQUEST_SIZE = &H10
Public Const EVERYTHING_REQUEST_DATE_CREATED = &H20
Public Const EVERYTHING_REQUEST_DATE_MODIFIED = &H40
Public Const EVERYTHING_REQUEST_DATE_ACCESSED = &H80
Public Const EVERYTHING_REQUEST_ATTRIBUTES = &H100
Public Const EVERYTHING_REQUEST_FILE_LIST_FILE_NAME = &H200
Public Const EVERYTHING_REQUEST_RUN_COUNT = &H400
Public Const EVERYTHING_REQUEST_DATE_RUN = &H800
Public Const EVERYTHING_REQUEST_DATE_RECENTLY_CHANGED = &H1000
Public Const EVERYTHING_REQUEST_HIGHLIGHTED_FILE_NAME = &H2000
Public Const EVERYTHING_REQUEST_HIGHLIGHTED_PATH = &H4000
Public Const EVERYTHING_REQUEST_HIGHLIGHTED_FULL_PATH_AND_FILE_NAME = &H8000
Sub myEverything()
Dim myKey As String
myKey = "干熄焦"
Everything_SetSearchW (myKey)
Everything_SetRequestFlags (EVERYTHING_REQUEST_FILE_NAME Or EVERYTHING_REQUEST_PATH Or EVERYTHING_REQUEST_SIZE Or EVERYTHING_REQUEST_DATE_MODIFIED)
Everything_QueryW (10)
NumResults = Everything_GetNumResults()
End Sub
〖3〗运行结果及报错内容
〖4〗我的解答思路和尝试过的方法
〖5〗我想要达到的结果