Everything VBA SDK
https://www.voidtools.com/forum/down...le.php?id=1087
Everything32.dll down from: https://www.voidtools.com/Everything-SDK.zip
VB6 search file body by everything.exe-VBForums
https://www.vbforums.com/showthread....everything-exe
https://www.voidtools.com/forum/down...le.php?id=1087
Everything32.dll down from: https://www.voidtools.com/Everything-SDK.zip
VB6 search file body by everything.exe-VBForums
https://www.vbforums.com/showthread....everything-exe
Code:
version 1.4:find *.bas file ,with stirng :(StrFormatByteSize and Wininet)
EyText="ext:bas size:0kb..500kb content:StrFormatByteSize content:Wininet"
version 1.5:
ext:bas size:0kb..500kb content:<StrFormatByteSize Wininet>Code:
Option Explicit
Public Declare Function Everything_SetSearchA Lib "Everything32.dll" (ByVal ins As String) As Long
Public Declare Function Everything_QueryA Lib "Everything32.dll" (ByVal bWait As Long) As Long
Public Declare Function Everything_SetSearchW Lib "Everything32.dll" (ByVal ins As Long) As Long
Public Declare Function Everything_SetRequestFlags Lib "Everything32.dll" (ByVal dwRequestFlags As Long) As Long
Public Declare Function Everything_QueryW Lib "Everything32.dll" (ByVal bWait As Long) As Long
Public Declare Function Everything_GetNumResults Lib "Everything32.dll" () As Long
Public Declare Function Everything_GetResultFileNameW Lib "Everything32.dll" (ByVal index As Long) As Long
Public Declare Function Everything_GetLastError Lib "Everything32.dll" () As Long
Public Declare Function Everything_GetResultFullPathNameW Lib "Everything32.dll" (ByVal index As Long, ByVal ins As Long, ByVal size As Long) As Long
Public Declare Function Everything_GetResultSize Lib "Everything32.dll" (ByVal index As Long, ByRef size As Long) As Long 'size UInt64
Public Declare Function Everything_GetResultDateModified Lib "Everything32.dll" (ByVal index As Long, ByRef ft As Long) As Long 'ft UInt64
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
Public Type FILETIME
dwLowDateTime As Long
dwHighDateTime As Long
End Type
Public Type SYSTEMTIME
wYear As Long
wMonth As Long
wDayOfWeek As Long
wDay As Long
wHour As Long
wMinute As Long
wSecond As Long
wMilliseconds As Long
End Type
Private Declare Function FileTimeToSystemTime Lib "kernel32" (ByRef ft As Long, lpSystemTime As SYSTEMTIME) As Long
Private Declare Function SystemTimeToTzSpecificLocalTime Lib "kernel32" (ByVal tzi As Long, lpst As SYSTEMTIME, lplt As SYSTEMTIME) As Long
Private Declare Function SystemTimeToVariantTime Lib "OLEAUT32.DLL" (lpSystemTime As SYSTEMTIME, vtime As Date) As Long
Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Sub SimpleTest()
'If Not CheckEverythingRunning Then
'Debug.Print "Please check Everything Is Running"
'Exit Sub
'End If
Dim EyText As String
Dim test As Boolean
EyText = "Everything"
Call Everything_SetSearchW(StrPtr(EyText))
'Call Everything_SetSearchA(EyText)
EyText="ext:bas size:0kb..500kb content:StrFormatByteSize content:Wininet"
Everything_SetRequestFlags (EVERYTHING_REQUEST_FILE_NAME Or EVERYTHING_REQUEST_PATH Or EVERYTHING_REQUEST_SIZE Or EVERYTHING_REQUEST_DATE_MODIFIED)
test = Everything_QueryW(True)
'test = Everything_QueryA(True)
If Not test Then
Debug.Print "Search Err:Please check Everything Is Running"
Exit Sub
End If
Dim NumResults As Long
Dim i As Long
Dim filename2 As String
Dim filesize As Long
Dim size As Long
Dim ftdm As Long
Dim stdm As SYSTEMTIME
Dim ltdm As SYSTEMTIME
Dim DateModified As Date
Dim ID As Long
NumResults = Everything_GetNumResults()
Debug.Print "Find FILES:" & NumResults
filename2 = String(260, 0)
If NumResults > 0 Then
For i = 0 To NumResults - 1
test = Everything_GetResultFullPathNameW(i, StrPtr(filename2), 260)
ID = InStr(filename2, Chr(0))
If ID > 0 Then
FileName = Left(filename2, ID - 1)
Else
FileName = filename2
End If
test = Everything_GetResultSize(i, size)
test = Everything_GetResultDateModified(i, ftdm)
test = FileTimeToSystemTime(ftdm, stdm)
test = SystemTimeToTzSpecificLocalTime(0, stdm, ltdm)
test = SystemTimeToVariantTime(ltdm, DateModified)
Debug.Print DateModified & "//" & size & "//" & FileName
Next
End If
End Sub