File_Seeker v0.85 Build 2010-12-01 Beta

[autoit]

#include <Array.au3>
Dim $ergebnis[1]

[/autoit] [autoit][/autoit] [autoit]

$path = @WindowsDir

[/autoit] [autoit][/autoit] [autoit]

If StringRight($path, 1) <> "\" Then $path &= "\"
$depth = StringReplace($path, "\", "\")
$depth = @extended - 1
If StringLeft($path, 2) = "\\" Then $depth -= 2
$file = ".log" ;to search for any file use "*"
;~ $ergebnis = File_Seeker($path, $file, $ergebnis, 0, 1) ;searchs for ".log" (exact search)
;~ $ergebnis = File_Seeker($path, $file, $ergebnis, 0, 0, 1, 0) ;searchs for "*.log*" recursively but dir names are excluded
;~ $ergebnis = File_Seeker($path, $file, $ergebnis, 0, 0, 0, 0) ;searchs for "*.log*" but not recursive and no dir names
$ergebnis = File_Seeker($path, $file, $ergebnis, 1, 0, 1) ;searchs for files with extension .log but dir names are excluded

[/autoit] [autoit][/autoit] [autoit]

If Not @error Then
;~ _ArraySort($ergebnis)
_ArrayDisplay($ergebnis)
;~ Local $log
;~ For $i = 1 To UBound($ergebnis) - 1
;~ $log &= $ergebnis[$i] & @CRLF
;~ Next
;~ $file = FileOpen(@ScriptDir & "\Ergebnis.log", 1)
;~ FileWrite($file, $log)
;~ FileClose($file)
EndIf

[/autoit] [autoit][/autoit] [autoit]

Exit

[/autoit] [autoit][/autoit] [autoit]

;==================================================================================================
; Function Name: File_Seeker($path, $file, $array)
; Description: searchs for a file recursively on given drive
; Parameters: $path: path where to search
; $file: filename to search for
; $array: to save the search results
; Optional:
; $ext: search for file extension, e.g. .mp3
; $exact: to search for exact file name (not case sensitive)
; $rec: to search recursively for files and folders
; $folder: include also folder names to search pattern
; $maxr: maximum of recursion depth, 0 = maxiumum
; Return Value(s): an array with the full path of the files, $array[0] = amount of found files
; Version: v0.85 Build 2010-12-01 Beta
; Author(s): UEZ
;==================================================================================================
Func File_Seeker($path, $file, ByRef $aResults, $ext = 0, $exact = 0, $rec = 1, $folder = 0, $maxr = 0)
Local $extended, $d
If Not IsInt($maxr) Then Return SetError(2)
If $file <> "" And IsArray($aResults) And BitAND($ext, $exact) <> 1 Then
If StringLeft($path, 2) = "\\" Or (StringRegExp(StringLeft($path, 1), "(?i:[A-Z])") And StringMid($path, 2, 1) = ":") Then
If $maxr Then
$d = StringReplace($path, "\", "\")
$d = @extended - 1
If StringLeft($path, 2) = "\\" Then $d -= 2
$d -= $depth
;~ ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $d = ' & $d & ">=" & $maxr & ": " & $path & @crlf & '>Error code: ' & @error & @crlf) ;### Debug Console
If $d > $maxr Then Return SetError(5)
EndIf
If StringRight($path, 1) <> "\" Then $path &= "\"
Local $seek, $suffix = ""
Local $search = FileFindFirstFile($path & "*")
If $search = -1 Then
Return SetError(3)
EndIf
While 1
$seek = FileFindNextFile($search)
$extended = @extended
If @error Then ExitLoop
If $extended And $rec Then File_Seeker($path & $seek & "\", $file, $aResults, $ext, $exact, $rec, $folder, $maxr)
If $exact And Not $ext Then
If $seek = $file Then _ArrayAdd($aResults, $path & $seek)
Else
If $ext Then
If StringRegExp($seek, "(?i:\" & $file & "+$\b)") And StringLeft($file, 1) = "." Then
If ($extended And $folder) Or Not $extended Then _ArrayAdd($aResults, $path & $seek)
EndIf
Else
If $file = "*" Then
If ($extended And $folder) Or Not $extended Then _ArrayAdd($aResults, $path & $seek)
Else
If StringInStr($file, ".") Then
If StringRegExp($seek, "(?i:\" & $file & ")+") Then
If ($extended And $folder) Or Not $extended Then _ArrayAdd($aResults, $path & $seek)
EndIf
Else
If StringRegExp($seek, "(?i:" & $file & ")+") Then
If ($extended And $folder) Or Not $extended Then _ArrayAdd($aResults, $path & $seek)
EndIf
EndIf
EndIf
EndIf
EndIf
WEnd
FileClose($search)
$aResults[0] = UBound($aResults) - 1
Return SetError(0, 0, $aResults)
Else
Return SetError(4)
EndIf
Else
Return SetError(1)
EndIf
EndFunc

[/autoit]