not found Everything.dll in VBA7 for Win 7 x64

Plug-in and third party software discussion.
Post Reply
zhr
Posts: 7
Joined: Fri Jun 07, 2013 12:46 pm

not found Everything.dll in VBA7 for Win 7 x64

Post by zhr »

I have a problem with the following code in VBA7 Microsoft Excell 2010 on Win 7 x64.
VBA7 Microsoft Excell 2010 can't open(find) Everything.dll.
In VBA7 Microsoft Excell 2010 on Win 7 x32 this code runs correctly.
What the problem in Win 7 x64?
I need help.

Code: Select all

Public Type Zfilestruct
     FullPathFileName As String * 260
     PathPartLength      As Long ' Length of the path part only
     FileNamePartOffset  As Long ' Offset into FullPathFileName for the file name part only (0 based)
     SizeHigh            As Long ' Not used in this example.
     SizeLow             As Long ' Not used in this example.
     Attributes          As Long ' Attribute flags can be zero or EVERYTHING_FILE_ATTRIBUTE_DIRECTORY flag
     CreationYear        As Long ' Not used in this example.
     CreationMonth       As Long ' Not used in this example.
     CreationDayOfWeek   As Long ' Not used in this example.
     CreationDay         As Long ' Not used in this example.
     CreationHour        As Long ' Not used in this example.
     CreationMinute      As Long ' Not used in this example.
     CreationSecond      As Long ' Not used in this example.
     CreationMilliseconds    As Long ' Not used in this example.
     LastAccessYear      As Long ' Not used in this example.
     LastAccessMonth     As Long ' Not used in this example.
     LastAccessDayOfWeek As Long ' Not used in this example.
     LastAccessDay       As Long ' Not used in this example.
     LastAccessHour      As Long ' Not used in this example.
     LastAccessMinute    As Long ' Not used in this example.
     LastAccessSecond    As Long ' Not used in this example.
     LastAccessMilliseconds  As Long ' Not used in this example.
     LastWriteYear       As Long ' Not used in this example.
     LastWriteMonth      As Long ' Not used in this example.
     LastWriteDayOfWeek  As Long ' Not used in this example.
     LastWriteDay        As Long ' Not used in this example.
     LastWriteHour       As Long ' Not used in this example.
     LastWriteMinute     As Long ' Not used in this example.
     LastWriteSecond     As Long ' Not used in this example.
     LastWriteMilliseconds   As Long ' Not used in this example.
End Type

Dim FINDfile As Zfilestruct
Declare PtrSafe Sub Everything_SetSearch Lib "Everything" (ByVal Zfilter As String)
Private Declare PtrSafe Sub Everything_Query Lib "Everything" ()
Declare PtrSafe Function Everything_GetNumResults Lib "Everything" () As Long
Declare PtrSafe Sub Everything_GetResult Lib "Everything" (ByVal Xnumber As Long, ByRef Xfile As Zfilestruct)

Sub start()
Everything_SetSearch (Cells(1, 1).Text)
Everything_Query
num = Everything_GetNumResults()
For i = 0 To num - 1
Everything_GetResult i, FINDfile
Cells(i + 1, 3) = FINDfile.FullPathFileName
Next i
End Sub
void
Developer
Posts: 15096
Joined: Fri Oct 16, 2009 11:31 pm

Re: not found Everything.dll in VBA7 for Win 7 x64

Post by void »

You will need an x64 version of the Everything.dll which I hope to release soon.
zhr
Posts: 7
Joined: Fri Jun 07, 2013 12:46 pm

Re: not found Everything.dll in VBA7 for Win 7 x64

Post by zhr »

Tell me the approximate release date, please.
void
Developer
Posts: 15096
Joined: Fri Oct 16, 2009 11:31 pm

Re: not found Everything.dll in VBA7 for Win 7 x64

Post by void »

I've compiled the dll as x64, you can find it here:
Everything.x64.dll.zip

Good luck!
zhr
Posts: 7
Joined: Fri Jun 07, 2013 12:46 pm

Re: not found Everything.dll in VBA7 for Win 7 x64

Post by zhr »

thank you very much, I will try
zhr
Posts: 7
Joined: Fri Jun 07, 2013 12:46 pm

Re: not found Everything.dll in VBA7 for Win 7 x64

Post by zhr »

hello, in the new library Everything.dll x64 does not find an entry point Everything_SetSearch http://yadi.sk/d/VjGaHIHK5eo3E
void
Developer
Posts: 15096
Joined: Fri Oct 16, 2009 11:31 pm

Re: not found Everything.dll in VBA7 for Win 7 x64

Post by void »

zhr
Posts: 7
Joined: Fri Jun 07, 2013 12:46 pm

Re: not found Everything.dll in VBA7 for Win 7 x64

Post by zhr »

Unfortunately, nothing has changed in version Everything.x64.dll
the same error http://yadi.sk/d/-ufoYOHd5ewmu
void
Developer
Posts: 15096
Joined: Fri Oct 16, 2009 11:31 pm

Re: not found Everything.dll in VBA7 for Win 7 x64

Post by void »

depends.exe is showing that the entry points exist.

Try changing:

Code: Select all

Declare PtrSafe Sub Everything_SetSearch Lib "Everything" (ByVal Zfilter As String)
Private Declare PtrSafe Sub Everything_Query Lib "Everything" ()
Declare PtrSafe Function Everything_GetNumResults Lib "Everything" () As Long
Declare PtrSafe Sub Everything_GetResult Lib "Everything" (ByVal Xnumber As Long, ByRef Xfile As Zfilestruct)
to:

Code: Select all

Declare PtrSafe Sub Everything_SetSearch Lib "Everything.x64.dll" (ByVal Zfilter As String)
Private Declare PtrSafe Sub Everything_Query Lib "Everything.x64.dll" ()
Declare PtrSafe Function Everything_GetNumResults Lib "Everything.x64.dll" () As Long
Declare PtrSafe Sub Everything_GetResult Lib "Everything.x64.dll" (ByVal Xnumber As Long, ByRef Xfile As Zfilestruct)
Is Everything.x64.dll in the right location?

...I am not familiar with VBA 7.
void
Developer
Posts: 15096
Joined: Fri Oct 16, 2009 11:31 pm

Re: not found Everything.dll in VBA7 for Win 7 x64

Post by void »

*Please make sure you specify Everything.x64.dll in VBA 7, instead of Everything or Everything.dll
zhr
Posts: 7
Joined: Fri Jun 07, 2013 12:46 pm

Re: not found Everything.dll in VBA7 for Win 7 x64

Post by zhr »

podump.exe also does not see entry point for function Everything_SetSearch and Everything_Query http://yadi.sk/d/YixugjSx5hH0e
void
Developer
Posts: 15096
Joined: Fri Oct 16, 2009 11:31 pm

Re: not found Everything.dll in VBA7 for Win 7 x64

Post by void »

Everything_SetSearch is exported as:
Everything_SetSearchA for ANSI and Everything_SetSearchW for Unicode.
Everything_Query is exported as:
Everything_QueryA for ANSI and Everything_QueryW for Unicode.

Please try changing:

Code: Select all

Declare PtrSafe Sub Everything_SetSearch Lib "Everything" (ByVal Zfilter As String)
Private Declare PtrSafe Sub Everything_Query Lib "Everything" ()
Declare PtrSafe Function Everything_GetNumResults Lib "Everything" () As Long
Declare PtrSafe Sub Everything_GetResult Lib "Everything" (ByVal Xnumber As Long, ByRef Xfile As Zfilestruct)
to:

Code: Select all

Declare PtrSafe Sub Everything_SetSearch Lib "Everything.x64.dll" Alias "Everything_SetSearchW" (ByVal Zfilter As String)
Private Declare PtrSafe Sub Everything_Query Lib "Everything.x64.dll" Alias "Everything_QueryW" (ByVal bWait As Long)
Declare PtrSafe Function Everything_GetNumResults Lib "Everything.x64.dll" () As Long
Declare PtrSafe Sub Everything_GetResult Lib "Everything.x64.dll" (ByVal Xnumber As Long, ByRef Xfile As Zfilestruct)
zhr
Posts: 7
Joined: Fri Jun 07, 2013 12:46 pm

Re: not found Everything.dll in VBA7 for Win 7 x64

Post by zhr »

thank you very much for your answers,
but unfortunately for other applications used by me DLL's are not yet available for Office2010 x64.
I'm back on the Office2010 x32 and will use your Everything.dll.
Topic is locked ... yet.
Good luck.
Post Reply