Add Windows Search content
Posted: 2021-02-14, 14:08 UTC
I found in my other file manager (XYplorer) how easy it is to get content searches using Windows search.
A realy small VBS script is enough to search by content and use the resuilts like Feed to listbox in TC
Its called "Paper Folder" in XYplorer.
This should be no big problem to add for Christian.
Suggestion:
Make a "Windows search" checkbox if "Find text" is used.
Feed the query to the VBS script
Execute a command similar to
$a = runret("cmd /c cscript.exe <xyscripts>\WinSearch.vbs //NoLogo //T:10");
Show the results as usual.
The final script for getting Windows search content is like the following example
A realy small VBS script is enough to search by content and use the resuilts like Feed to listbox in TC
Its called "Paper Folder" in XYplorer.
This should be no big problem to add for Christian.
Suggestion:
Make a "Windows search" checkbox if "Find text" is used.
Feed the query to the VBS script
Execute a command similar to
$a = runret("cmd /c cscript.exe <xyscripts>\WinSearch.vbs //NoLogo //T:10");
Show the results as usual.
The final script for getting Windows search content is like the following example
Code: Select all
On Error Resume Next
Set objConnection = CreateObject("ADODB.Connection")
Set objRecordSet = CreateObject("ADODB.Recordset")
objConnection.Open "Provider=Search.CollatorDSO;Extended Properties='Application=Windows';"
objRecordSet.Open _
"SELECT TOP 200 System.ItemPathDisplay, System.Search.Rank FROM SYSTEMINDEX WHERE " & _
" FREETEXT(*, 'text to be searched' ) " & _
"ORDER BY System.Search.Rank DESC", objConnection
objRecordSet.MoveFirst
Do Until objRecordset.EOF
Wscript.Echo objRecordset.Fields.Item("System.ItemPathDisplay")
objRecordset.MoveNext
Loop