A better file search utility

[keyfinger]

I don't know if anyone else has a better utility or what, but I did some research and created this utility which seems to work pretty well without a lot of code. Let me know what you think.

expandcollapse popup

#include <Array.au3>

$array = FileSearch("C:\")
_ArrayDisplay($array, "Search Results")

Exit

Func FileSearch($StartRoot)
   Local $Filter[2]
   Local $Search, $File, $Files
   
   $Filter[0] = ".au3"
   $Filter[1] = ".old"
   
   SplashTextOn("Searching...", "", 800, 50, -1, -1, 4, "Arial", 10)
   
   $Search = FileFindFirstFile($StartRoot & "*.*")
   If $Search = -1 Then Exit(@error)
   
   While 1
      $File = FileFindNextFile($Search)
      If @error Then ExitLoop
      
      If StringInStr(FileGetAttrib($StartRoot & $File), "D") Then
         ControlSetText("Searching...", "", "Static1", $StartRoot & $File)
         FileSearchSub($StartRoot & $File & "\", $Filter, $Files)
      ElseIf StringInStr($File, $Filter[0]) Or StringInStr($File, $Filter[1]) Then
         $Files = $Files & ";" & $StartRoot & $File
      EndIf
   WEnd
   FileClose($Search)
   
   SplashOff()
   
   $Files = StringTrimLeft($Files, 1)
   Return StringSplit($Files, ";")
EndFunc ; FileSearch

Func FileSearchSub($SearchSub, ByRef $Filter, ByRef $Files)
   Local $Search, $File
   
   $Search = FileFindFirstFile($SearchSub & "*.*")
   If $Search = -1 Then Return
   
   While 1
      $File = FileFindNextFile($Search)
      If @error Then ExitLoop
      
      If StringInStr(FileGetAttrib($SearchSub & $File), "D") Then
         ControlSetText("Searching...", "", "Static1", $SearchSub & $File)
         FileSearchSub($SearchSub & $File & "\", $Filter, $Files)
      ElseIf StringInStr($File, $Filter[0]) Or StringInStr($File, $Filter[1]) Then
         $Files = $Files & ";" & $SearchSub & $File
      EndIf
   WEnd
   FileClose($Search)
EndFunc ; FileSearchSub

[SandelPerieanu]

I don't know if anyone else has a better utility or what, but I did some research and created this utility which seems to work pretty well without a lot of code. Let me know what you think.

expandcollapse popup

#include <Array.au3>

$array = FileSearch("C:")
_ArrayDisplay($array, "Search Results")

Exit

Func FileSearch($StartRoot)
   Local $Filter[2]
   Local $Search, $File, $Files
   
   $Filter[0] = ".au3"
   $Filter[1] = ".old"
   
   SplashTextOn("Searching...", "", 800, 50, -1, -1, 4, "Arial", 10)
   
   $Search = FileFindFirstFile($StartRoot & "*.*")
   If $Search = -1 Then Exit(@error)
   
   While 1
      $File = FileFindNextFile($Search)
      If @error Then ExitLoop
      
      If StringInStr(FileGetAttrib($StartRoot & $File), "D") Then
         ControlSetText("Searching...", "", "Static1", $StartRoot & $File)
         FileSearchSub($StartRoot & $File & "", $Filter, $Files)
      ElseIf StringInStr($File, $Filter[0]) Or StringInStr($File, $Filter[1]) Then
         $Files = $Files & ";" & $StartRoot & $File
      EndIf
   WEnd
   FileClose($Search)
   
   SplashOff()
   
   $Files = StringTrimLeft($Files, 1)
   Return StringSplit($Files, ";")
EndFunc ; FileSearch

Func FileSearchSub($SearchSub, ByRef $Filter, ByRef $Files)
   Local $Search, $File
   
   $Search = FileFindFirstFile($SearchSub & "*.*")
   If $Search = -1 Then Return
   
   While 1
      $File = FileFindNextFile($Search)
      If @error Then ExitLoop
      
      If StringInStr(FileGetAttrib($SearchSub & $File), "D") Then
         ControlSetText("Searching...", "", "Static1", $SearchSub & $File)
         FileSearchSub($SearchSub & $File & "", $Filter, $Files)
      ElseIf StringInStr($File, $Filter[0]) Or StringInStr($File, $Filter[1]) Then
         $Files = $Files & ";" & $SearchSub & $File
      EndIf
   WEnd
   FileClose($Search)
EndFunc ; FileSearchSub oÝ÷ Ûú®¢×®®

[keyfinger]

Ah, well there you go.

[w0uter]

_FileSearch Edited July 13, 2006 by w0uter

[B3TA_SCR1PT3R]

1) Not everyones root directory is 'C', mine infact is 'E'

2) dir %HOMEDRIVE% /s /b | find /I ".au3"

[The Kandie Man]

http://www.autoitscript.com/forum/index.php?showtopic=23815