AutoHotkey Community

   ifexist %result_filename%
   {
      if search_in_results = 1
      {
         if search_inside <>
         {
            ifnotexist findstr.exe
            {
               ifexist C:\WINDOWS\system32\findstr.exe
                  FileCopy C:\WINDOWS\system32\findstr.exe, findstr.exe
            }
            Runwait, %comspec% %debug% "findstr /M /I /F:"%result_filename%" "%search_inside%" > "%result_filename2%"" , %A_ScriptDir% , hide
            if logging > 2
               OutputDebug %app_name% %app_version% (%A_LineNumber%) GUI_fill_results: Runwait, %comspec% %debug% "findstr /M /I /F:"%result_filename%" "%search_inside%" > "%result_filename%"" , %A_ScriptDir% , hide
            FileDelete %result_filename%
            FileMove %result_filename2%, %result_filename%
         }
      }
   }

;__________________________
; \____K - tFindGUI_____/

; Coded by MsgBox.                                          Last Edit:- 08/02/09

; This script is only for systems where the filesystem is NTFS. It is a front
; end for "TFind - NTFS Disk Searcher" -- http://deadnode.org/sw/tfind/
; which is a VERY VERY FAST command line NTFS MFT (Master File Table) search tool.
;
; To use, download tFind: http://cdn.deadnode.org/tfind32.zip
; and place tFind.exe in %SYSTEMROOT%\System32 folder or any directory in your PATH.

#SingleInstance Force
SetBatchLines -1

; This is needed for (my!) Windows Vista. The drawback is that all files and folders
; opened with K - tFindGUI will be run in Admin mode! -- Remove if not needed.
if not A_IsAdmin
{
   DllCall("shell32\ShellExecuteA", uint, 0, str, "RunAs", str, A_AhkPath
      , str, """" . A_ScriptFullPath . """", str, A_WorkingDir, int, 1)
   ExitApp
}

DriveGet allDrives, list, fixed           ; Get drive list
Loop Parse, allDrives                     ; Extract all NTFS drives
{
   l := A_LoopField
   DriveGet thisDrive, FS, %l%:
   If thisDrive = ntfs
   {
      If !firstDrive                      ; First drive found (usually C:)
         firstDrive := l
      ntfsDrives = %ntfsDrives%  %l%
      }
   }

progName = K - tFindGui
progNameSB = %progName% - Click status bar to copy files full path.
driveShow = Available NTFS drives: %ntfsDrives%

Gui Margin, 5, 5
Gui Add, GroupBox, w300 h70
Gui Add, Text, xs+10 ys23, Drive:
Gui Add, Text, x+63 , Find this:
Gui Add, CheckBox, x+10 vpartialMatch, &Partial match
Gui Add, Button, x+18 ys+15 h20 gsHelp, &Help

Gui Add, Button, x+50 yp-9 w232 h25 vss Disabled, %driveShow%
Gui Add, Text, yp+50 w130 vnof, Files found: 0
Gui Add, Text, x+10 w120 vst, Start time: 00:00:00


Gui Add, Edit, xs+10 ys+40 w70 vfDrive Uppercase, %firstDrive%
Gui Add, Edit, x+20 w150 vfQuery
Gui Add, Button, x+5 h20 gGetResults Default, &Find

Gui Add, Text, x+50 yp+2 w120 vtt, Total time:   0
Gui Add, Text, x+21 w120 vet, End time:  00:00:00

Gui Add, ListView, xm w700 r15 gopenFolder AltSubmit, Result|File|Ext|Size|Path
LV_ModifyCol(1, 0)
LV_ModifyCol(2, 200)
LV_ModifyCol(3, 45)
LV_ModifyCol(4, 60)
LV_ModifyCol(5, 370)
Gui Add, StatusBar, gcopyPath, %progNameSB%
Gui Show,, %progName%
GuiControl focus, edit2
Return

fillInfo:
GuiControl,, nof, Files found: %Cnt%
GuiControl,, st, Start time: %startTime%
GuiControl,, tt, Total time:   %totalSpeed% %sSeconds%
GuiControl,, et, End time:  %endTime%
Return

GetResults:
Gui Submit, NoHide
If !fQuery
{
   MsgBox,, %progName%, No query entered.
   Return
   }
If partialMatch
   fQuery = *%fQuery%*
If !fDrive
   cmdInput = "%fQuery%" %ntfsDrives%  ; Bugfix. If drive letter is omitted (search all),
Else                                   ; tFind produces "Unable to access volume '\\.'"
   cmdInput = "%fQuery%" %fDrive%      ; along with the results.
GuiControl,, ss, Searching.....
CMDin := "cmd /c tFind " . cmdInput
LV_Delete()

FormatTime startTime,,H:mm:ss
startSpeed := A_Now

CMDret_Stream(CMDin)
LV_ModifyCol(1 ,"Sort")
FormatTime endTime,,H:mm:ss
endSpeed := A_Now
totalSpeed := endSpeed-startSpeed
If totalSpeed < 2
   sSeconds = second
Else
   sSeconds = seconds
   
If yesRslt =
{
   Cnt = 0
   Gosub fillInfo
   noResult = No results for "%fQuery%"
   LV_Add("","" , noResult)
   GuiControl,, ss,  %driveShow%
   Return
   }
yesRslt =
GuiControl,, ss, %driveShow%
GoSub fillInfo
cnt=
Return

openFolder:
LV_GetText(fChoice,A_EventInfo)
If (A_GuiEvent = "DoubleClick") {
   Menu myMenu, Add, &Open Directory, doMenu
   Menu myMenu, Add, &Run File, doMenu
   Menu myMenu, Add
   Menu myMenu, Add, &Copy Full Path, doMenu
   Menu myMenu, Show
   Menu myMenu, DeleteAll ; Prevents separator lines appearing at bottom of menu.
   }
If (A_GuiEvent = "Normal" || A_GuiEvent = "I") {
   SB_SetText(fChoice)
   }
Return

doMenu:
If ( !ThisMenuItem )
   ThisMenuItem = %A_ThisMenuItem%
If (ThisMenuItem = "&Open Directory")
   Run explorer `/select`, %fChoice%
If (ThisMenuItem = "&Run File")
   Run %fChoice%
If (ThisMenuItem = "&Copy Full Path")
   SetTimer copyPath, on
ThisMenuItem =
Return

copyPath:
If (fChoice = "Result") {
   GuiControl,, ss, Nothing to copy!
   SB_SetText("Please make a selection first!")
   Sleep 3000
   GuiControl,, ss, %driveShow%
   SB_SetText(progNameSB)
   Return
   }
Clipboard = %fChoice%
GuiControl,, ss, Full path copied to the clipboard.
SB_SetText(fChoice " -- COPIED")
Sleep 3000
GuiControl,, ss, %driveShow%
SB_SetText(fChoice)
SetTimer copyPath, off
Return

sHelp:
MsgBox,, %progName% - Help, Drives:`nSeparate multi-drive search with a space, eg. C E`nClear drive edit box to search ALL NTFS drives.`n`nWild cards:`n? any single charactor, eg. tF??dG?i.exe`n* any charactors, eg. tFind*, *.ahk`nCan be used in combination, eg. *F?nd*`n`nPartial Match:`nChecking this box is the equivalent of using *query*`n`nPattern matching is NOT case-sensitive.`n`nDouble-clicking a found file brings up a menu offering the choice of running the file or locate and select it in Explorer.`n`nTo copy the files full path to the clipboard click the status bar.
Return

GuiEscape:
GuiClose:
ExitApp
Return

CMDret_Output(CMDout, CMDname="")
{
   global yesRslt, Cnt
   If (CMDout) {
      Cnt++
      SplitPath CMDout, fName, fPath, fExt
      FileGetSize fSize, %CMDout%, K
      LV_Add("", CMDout, fName, fExt, fSize, fPath)
      yesRslt = 1
      }
   
}

CMDret_Stream(CMDin, CMDname="", WorkingDir=0)
{
  Global cmdretPID
  tcWrk := WorkingDir=0 ? "Int" : "Str"
  idltm := A_TickCount + 20
  LivePos = 1
  VarSetCapacity(CMDout, 1, 32)
  VarSetCapacity(sui,68, 0)
  VarSetCapacity(pi, 16, 0)
  VarSetCapacity(pa, 12, 0)
  Loop, 4 {
    DllCall("RtlFillMemory", UInt,&pa+A_Index-1, UInt,1, UChar,12 >> 8*A_Index-8)
    DllCall("RtlFillMemory", UInt,&pa+8+A_Index-1, UInt,1, UChar,1 >> 8*A_Index-8)
  }
  IF (DllCall("CreatePipe", "UInt*",hRead, "UInt*",hWrite, "UInt",&pa, "Int",0) <> 0) {
    Loop, 4
      DllCall("RtlFillMemory", UInt,&sui+A_Index-1, UInt,1, UChar,68 >> 8*A_Index-8)
    DllCall("GetStartupInfo", "UInt", &sui)
    Loop, 4 {
      DllCall("RtlFillMemory", UInt,&sui+44+A_Index-1, UInt,1, UChar,257 >> 8*A_Index-8)
      DllCall("RtlFillMemory", UInt,&sui+60+A_Index-1, UInt,1, UChar,hWrite >> 8*A_Index-8)
      DllCall("RtlFillMemory", UInt,&sui+64+A_Index-1, UInt,1, UChar,hWrite >> 8*A_Index-8)
      DllCall("RtlFillMemory", UInt,&sui+48+A_Index-1, UInt,1, UChar,0 >> 8*A_Index-8)
    }
    IF (DllCall("CreateProcess", Int,0, Str,CMDin, Int,0, Int,0, Int,1, "UInt",0, Int,0, tcWrk, WorkingDir, UInt,&sui, UInt,&pi) <> 0) {
      Loop, 4
        cmdretPID += *(&pi+8+A_Index-1) << 8*A_Index-8
      Loop {
        idltm2 := A_TickCount - idltm
        If (idltm2 < 15) {
          DllCall("Sleep", Int, 15)
          Continue
        }
        IF (DllCall("PeekNamedPipe", "uint", hRead, "uint", 0, "uint", 0, "uint", 0, "uint*", bSize, "uint", 0 ) <> 0 ) {
          Process, Exist, %cmdretPID%
          IF (ErrorLevel OR bSize > 0) {
            IF (bSize > 0) {
              VarSetCapacity(lpBuffer, bSize+1, 0)
              IF (DllCall("ReadFile", "UInt",hRead, "Str", lpBuffer, "Int",bSize, "UInt*",bRead, "Int",0) > 0) {
                IF (bRead > 0) {
                  IF (StrLen(lpBuffer) < bRead) {
                    VarSetCapacity(CMcpy, bRead, 32)
                    bRead2 = %bRead%
                    Loop {
                      DllCall("RtlZeroMemory", "UInt", &CMcpy, Int, bRead)
                      NULLptr := StrLen(lpBuffer)
                      cpsize := bread - NULLptr
                      DllCall("RtlMoveMemory", "UInt", &CMcpy, "UInt", (&lpBuffer + NULLptr + 2), "Int", (cpsize - 1))
                      DllCall("RtlZeroMemory", "UInt", (&lpBuffer + NULLptr), Int, cpsize)
                      DllCall("RtlMoveMemory", "UInt", (&lpBuffer + NULLptr), "UInt", &CMcpy, "Int", cpsize)
                      bRead2 --
                      IF (StrLen(lpBuffer) > bRead2)
                        break
                    }
                  }
              VarSetCapacity(lpBuffer, -1)
                  CMDout .= lpBuffer
                  bRead = 0
                }
              }
            }
          }
          ELSE
            break
        }
        ELSE
          break
        idltm := A_TickCount
        LiveFound := RegExMatch(CMDout, "m)^(.*)", LiveOut, LivePos)
        Sleep 100 ; kj
        If (LiveFound)
          SetTimer, cmdretSTR, 5
      }
      cmdretPID=
      DllCall("CloseHandle", UInt, hWrite)
      DllCall("CloseHandle", UInt, hRead)
    }
  }
  ;msgbox "%cmdout%" ; kj
  StringTrimLeft, LiveRes, CMDout, %LivePos%
  If LiveRes <>
    Loop, Parse, LiveRes, `n
    {
      FileLine = %A_LoopField%
      StringTrimRight, FileLine, FileLine, 1
      CMDret_Output(FileLine, CMDname)
    }
  StringTrimLeft, CMDout, CMDout, 1
  cmdretPID = 0
  Return, CMDout
cmdretSTR:
SetTimer, cmdretSTR, Off
If (LivePosLast <> LiveFound) {
  FileLine = %LiveOut1%
  LivePos := LiveFound + StrLen(FileLine) + 1
  LivePosLast := LivePos
  CMDret_Output(FileLine, CMDname)
}
Return
}

      ifnotexist %A_ScriptDir%\app\tfind64.exe
         URLDownloadToFile , http://cdn.deadnode.org/tfind64.zip , %A_ScriptDir%\app\tfind64.zip
      ifnotexist %A_ScriptDir%\app\tfind32.exe
         URLDownloadToFile , http://cdn.deadnode.org/tfind32.zip , %A_ScriptDir%\app\tfind32.zip

      if A_OSType contains 64
         find_app = %A_ScriptDir%\app\tfind64.exe
      else
         find_app = %A_ScriptDir%\app\tfind32.exe

app_name         = Everything FindStr
app_version         = 0.04
GUI_name         = %app_name% %app_version%
result_filename    = output_everything.txt
result_filename2   = output_findstr.txt
app_folder         = %A_ScriptDir%\app
find_app          = %app_folder%\es.exe
everything_app      = %app_folder%\everything.exe
max_results         = 10000

error_1155          = No application is associated with the specified file for this operation.
error_15          = The system cannot find the drive specified.
error_2          = The system cannot find the file specified.
error_21          = The device is not ready.
error_25          = Windows cannot find the network path.`nVerify that the network path is correct and the destination computer is not busy or turned off.`nIf Windows still cannot find the network path, contact your network administrator.
error_3          = The system cannot find the path specified.
error_4          = The system cannot open the file.
error_5          = Access is denied.

menu , Tray , icon, Shell32.dll, 147

check:
ifnotexist %find_app%
{
   msgbox , 4, %app_name% %app_version%, Essential file not found, click yes to download the necessary files (es.exe and everything.exe) to %app_folder%.
   ifmsgbox Yes
   {
      ifnotexist %app_folder%
         FileCreateDir %app_folder%
      ifnotexist %find_app%
         URLDownloadToFile , http://www.voidtools.com/es.exe , %find_app%
      ifnotexist %everything_app%
         URLDownloadToFile , http://www.voidtools.com/Everything-1.2.1.371.exe , %everything_app%
   }
   exitapp
}
#SingleInstance Force
SetBatchLines -1       ; maximum speed for loops

GUI:
   GUI +MinSize ToolWindow +LastFound

   ifwinexist , %GUI_name%
   {
      GUIControl , focus, command_search
      return
   }
   
   GUI font, norm cblack, Verdana

   GUI ADD, Picture, x4 y9 h16 w16 vtarget_icon Icon147 section, Shell32.dll
   GUI ADD, Edit, x25 ys-3 w390 vcommand_search gsearch section r1 default,
   GUI ADD, Button, ys-1 gcommand_run default hidden, OK
   GUI ADD, Text, x4 h16 w16 section, for
   GUI ADD, Edit, x25 ys-3 w390 vsearch_inside gsearch section r1 default, %parameter%
   
   GUI ADD, ListView, x5 r20 w410 vhitlist gfunction_lv_cmd -multi count%max_results% sort, Name|ext|Path
   LV_ModifyCol(1,200)     ; -- resizes column 1
   GUI Show , w420, %GUI_name%
return
GuiContextMenu:
   if last_check <>
   {
      if A_GUIControl = %last_check%
         Menu , Context, DeleteAll
   }
   if A_EventInfo > 0
   {
      last_check = %A_GUIControl%
      LV_GetText(command_name, A_EventInfo, 1)
      LV_GetText(command, A_EventInfo, 3)
      Menu , Context, Add, Open File %command_name%, command_run
      Menu , Context, Add, Copy path to clipboard, GUI_add_copypath
      Menu , Context, Add, Delete File %command_name%, GUI_delete
      Menu , Context, Add, Properties for %command_name%, GUI_add_properties
      Menu , Context, Add, Browse folder containing %command_name%, GUI_add_browse
      Menu, Context, Show, %A_GuiX%, %A_GuiY%
   }
   Menu, Context, DeleteALL   ; -- required to delete the sensitive options
return
GUI_add_copypath:
   clipboard := command_path
return
GUI_delete:
   ifexist command_path
   {
      msgbox , 4 , %app_name% , Are you sure you want to delete the following file?`n`n%command_path%
      IfMsgBox Yes
         FileDelete %command_path%
   }
   else
      msgbox ,  , %app_name% , File not found.`n`n%command_path%
return
GUI_add_properties:
   Run , properties "%command_path%", , UseErrorLevel
return
GUI_add_browse:
   Splitpath , command_path , , outdir
   ifexist %outdir%
      Run , explore %outdir%
return
search:
 SetTimer, execute_search, -250  ;Wait 250 milliseconds after typing stops.
return
execute_search:
   ; retrieve the variables from the GUI
   Gui, Submit, NoHide

   ; check if the everything process is running in the background
   Process , exist , everything.exe
   if errorlevel = 0
   {
      run , %everything_app%,, hide , everythingPID
      sleep 500
   }
   
   ; check if the temporary output file exists, if so, delete it
   ifexist %result_filename%
      FileDelete %result_filename%
   outputdebug %comspec% /c "%find_app%" "%command_search%" -n %max_results% > "%result_filename%"" , %A_ScriptDir% , hide
   Runwait, %comspec% /c ""%find_app%" "%command_search%" -n %max_results% > "%result_filename%"" , %A_ScriptDir% , hide
   
   ; check if the temporary (filtered) output file exists, if so, delete it
   ifexist %result_filename2%
      FileDelete %result_filename2%
   ; only do this if the user typed something into the edit box to search inside the hits for
   if search_inside <>
   {
      ifnotexist findstr.exe
      {
         ifexist C:\WINDOWS\system32\findstr.exe
            FileCopy C:\WINDOWS\system32\findstr.exe, %app_folder%\findstr.exe
      }
      Runwait, %comspec% /c ""%app_folder%\findstr.exe" /M /I /F:"%result_filename%" "%search_inside%" > "%result_filename2%"" , %A_ScriptDir% , hide
      outputdebug %comspec% /c ""%app_folder%\findstr.exe" /M /I /F:"%result_filename%" "%search_inside%" > "%result_filename2%"" , %A_ScriptDir% , hide
      FileDelete %result_filename%
      FileMove %result_filename2%, %result_filename%
   }
   
   ; now read the (filtered) outputfile to a variable
   ifexist %result_filename%
   {
      LV_Delete()   ; -- empty the list to ready it for the results
      FileRead , results, %result_filename%
      Sort , results , U
      StringReplace , results , results , `r`n, `n, ALL   ; needed for the listview
      
      GuiControl, -Redraw, Hitlist
      Loop , parse , results , `n
      {
         SplitPath, A_LoopField , OutFileName, OutDir, OutExtension, OutNameNoExt, OutDrive]
         if OutExtension contains %A_Space%
         {
            StringGetPos , OutExtension_space, OutExtension, %A_Space%
            StringLeft , OutExtension , OutExtension , %OutExtension_space%
         }
         if outfilename <>
            LV_Add("", OutFileName, OutExtension, A_LoopField)
      }
      GuiControl, +Redraw, Hitlist
   }
   LV_ModifyCol(2)        ; -- resizes column 2
   LV_ModifyCol(3,"AutoHdr")     ; -- resizes column 3
   LV_Modify(1, "Select")   ; select the first row
   ; empty the variable to free up memory
   results :=
return
function_lv_cmd:
   if A_GuiEvent = DoubleClick
   {
      LV_GetText(command, A_EventInfo, 3)
      gosub command_run
   }
return
command_run:
   if A_EventInfo = 0
      selected_row = 1
   else
      selected_row := A_EventInfo
   LV_GetText(command, selected_row, 3)
   if command_path =
      Splitpath , command , , command_path
   run , %command% , %command_path% , UseErrorLevel
   GoSub function_errorlevel      ; -- needed so the msgbox contains the right feedback to the user pertaining the error
   command :=
   command_path :=
return
function_errorlevel:
   if A_LastError <> 0
   {
      if A_LastError = 2
         msgbox ,  , %app_name% , Error %A_LastError%: %error_2%
      if A_LastError = 3
         msgbox ,  , %app_name% , Error %A_LastError%: %error_3%
      if A_LastError = 4
         msgbox ,  , %app_name% , Error %A_LastError%: %error_4%
      if A_LastError = 5
         msgbox ,  , %app_name% , Error %A_LastError%: %error_5%
      if A_LastError = 15
         msgbox ,  , %app_name% , Error %A_LastError%: %error_15%
      if A_LastError = 21
         msgbox ,  , %app_name% , Error %A_LastError%: %error_21%
      if A_LastError = 25
         msgbox ,  , %app_name% , Error %A_LastError%: %error_25%
      if A_LastError = 1155
         msgbox ,  , %app_name% , Error %A_LastError%: %error_1155%
   }
return
onexit:
   if everythingPID <>
      WinKill ahk_pid %everythingPID%
   exitapp

check:
ifnotexist %find_app%
{
   msgbox , 4 , %app_name% %app_version%, Essential file not found, click yes to download the necessary files (es.exe and everything.exe) to %A_ScriptDir%\app.
   ifmsgbox Yes
   {
IfNotExist %A_ScriptDir%\app
filecreatedir %A_ScriptDir%\app

ifnotexist %find_app%
URLDownloadToFile , http://www.voidtools.com/es.exe , %find_app%
if errorlevel
MsgBox, error downloading es.exe

ifnotexist %everything_app%
URLDownloadToFile , http://www.voidtools.com/Everything-1.2.1.371.exe , %everything_app%
if errorlevel
MsgBox, error downloading everything.exe
   }
   else
   exitapp
}