闪电搜索电脑内文件

yangyangzhifeng · 发表于 2017-1-8 12:14

利用史上最快搜索软件Everything(>-<)夸张一点，搜索电脑文件以利后续处理。
实例代码是搜索电脑文件名内含8位数字的xls，没有64环境，请大家自己测试。
将dll放入自己设定文件夹，然后api声明指向它就可以了。实例代码是搜索电脑
文件名内含8位数字的xls文件，用到了正则表达式搜索

Public Declare Function Everything_SetSearchA Lib "C:\WINDOWS\system32\Everything32.dll" (ByVal search As String) As Long
Public Declare Function Everything_QueryW Lib "C:\WINDOWS\system32\Everything32.dll" (ByVal bWait As Integer) As Integer
Public Declare Function Everything_GetNumResults Lib "C:\WINDOWS\system32\Everything32.dll" () As Long
Public Declare Function Everything_GetResultFileNameA Lib "C:\WINDOWS\system32\Everything32.dll" (ByVal index As Long) As String
Public Declare Function Everything_GetLastError Lib "C:\WINDOWS\system32\Everything32.dll" () As Long
Public Declare Function Everything_GetResultFullPathNameA Lib "C:\WINDOWS\system32\Everything32.dll" (ByVal index As Long, ByVal buf As String, ByVal size As Long) As Long
Sub test()
Everything_SetSearchA ("file:regex:^[0-9]{8} ext:xls")
Everything_QueryW (1)
Dim NumResults As Long, arr$()
Dim i As Long
NumResults = Everything_GetNumResults()
If NumResults > 0 Then
ReDim arr(1 To NumResults)
For i = 0 To NumResults - 1
Dim filename As String
filename = String(260, vbNullChar)
Everything_GetResultFullPathNameA i, filename, 260
arr(i + 1) = filename
Next
End If
If NumResults > 0 Then Sheet1.Range("a1").Resize(NumResults, 1) = arr
End Sub

复制代码

Everything-SDK.zip (168.99 KB, 下载次数: 62)

Everything-1.3.4.686.x86.Multilingual.zip (793.7 KB, 下载次数: 60)

Everything-1.3.4.686.x64.Multilingual.zip (906.88 KB, 下载次数: 97)

yangyangzhifeng · 发表于 2017-1-8 12:17

Everything的搜索语法：
操作符：
space AND
| OR
! NOT
< > Parentheses
" " Search for an exact phrase.

通配符：
* Matches zero or more characters.
? Matches one character.
*. Matches filenames with no extension.
*.* Same as *

宏：
quot: Literal double quote (")
apos: Literal apostrophe (')
amp: Literal ampersand (&)
lt: Literal less than (<)
gt: Literal greater than (>)
#x: Literal unicode character code x.

修饰符：
ascii: Enable fast ASCII case comparisons.
case: Match case.
diacritics: Match diacritical marks.
file: Match files only.
folder: Match folders only.
noascii: Disable fast ASCII case comparisons.
nocase: Do not match case.
nodiacritics: Do not match diacritical marks.
nofileonly: Do not allow files only.
nofolderonly: Do not allow folders only.
nopath: Do not match path.
noregex: Disable regex.
nowfn: Do not match the whole filename.
nowholefilename: Do not match the whole filename.
nowholeword: Do not match whole words only.
nowildcards: Disable wildcards.
noww: Do not match whole words only.
path: Match path and file name.
regex: Enable regex.
utf8: Disable fast ASCII case comparisons.
wfn: Match the whole filename.
wholefilename: Match the whole filename.
wholeword: Match whole words only.
wildcards: Enable wildcards.
ww: Match whole words only.

函数：
attrib:<attributes> Search for files and folders with the specified file attributes.
attributes:<attributes> Search for files and folders with the specified file attributes.
datecreated:<date> Search for files and folders with the specified date created.
datemodified:<date> Search for files and folders with the specified date modified.
dc:<date> Search for files and folders with the specified date created.
dm:<date> Search for files and folders with the specified date modified.
dupe: Search for duplicated filenames.
empty: Search for empty folders.
ext:<list> Search for files with a matching extension in the specified semi-colon delimited extension list.
fsi:<index> Search for files and folders in the specified zero based internal file system index.
len:<length> Search for files and folders that match the specified filename length.
parents:<count> Search for files and folders with the specified number of parent folders.
root: Search for files and folders with no parent folders.
size:<size> Search for files with the specified size in bytes.
type:<type> Search for files and folders with the specified type.

函数语法：
function:value Equal to value.
function:<=value Less than or equal to value.
function:<value Less than value.
function:=value Equal to value.
function:>value Greater than value.
function:>=value Greater than or equal to value.
function:start..end Is in the range of values from start to end.
function:start-end Is in the range of values from start to end.

大小语法：
size[kb|mb|gb]

大小常数：
empty
tiny 10 KB
small 100 KB
medium 1 MB
large 16 MB
gigantic 128 MB
unknown

日期语法：
year
month/year
day/month/year

日期常数：
today
yesterday
tomorrow
<last|past|prev|current|this|coming|next><week|month|year>
january|february|march|april|may|june|july|august|september|october|november|december
jan|feb|mar|apr|may|jun|jul|aug|sep|oct|nov|dec
sunday|monday|tuesday|wednesday|thursday|friday|saturday
sun|mon|tue|wed|thu|fri|sat
unknown

属性常数：
R Read only
H Hidden
S System
D Directory
A Archive
V Device
N Normal
T Temporary
P Sparse file
L Reparse point
C Compressed
O Offline
I Not content indexed
E Encrypted
这些用法可以在调用 Everything_SetSearchA 时使用

yangyangzhifeng · 发表于 2017-1-8 12:19

调用代码前需要运行Everything，dll只是通过调用Everything的数据库实现搜索(实现进程间通讯吧)，切记。

lsc900707 · 发表于 2017-1-8 12:20

先送花，再下载测试>>>>>>>>

yangyangzhifeng · 发表于 2017-1-8 12:22

lsc900707 发表于 2017-1-8 12:20
先送花，再下载测试>>>>>>>>

谢谢支持，Everything本身就是windows搜索的最佳替代（只能搜索文件名）

lsc900707 · 发表于 2017-1-8 12:26

yangyangzhifeng 发表于 2017-1-8 12:22
谢谢支持，Everything本身就是windows搜索的最佳替代（只能搜索文件名）

确实够快的，谢谢楼主的分享！

99260967 · 发表于 2018-2-5 21:06

本帖最后由 99260967 于 2018-2-5 21:11 编辑

太厉害了。正找这个。运行没有报错，也没有结果。。。帮忙看看是这样用不

jiminyanyan · 发表于 2018-2-5 22:00

yangyangzhifeng 发表于 2017-1-8 12:22
谢谢支持，Everything本身就是windows搜索的最佳替代（只能搜索文件名）

要是能搜索文件中的内容就好了……。

chengshanming · 发表于 2018-2-5 22:09

不错，路过，顶一个！

悠扬的旋律 · 发表于 2024-8-12 12:09

		自动登录	找回密码
密码			免费注册

[分享] 闪电搜索电脑内文件

评分