File Searcher

[Autobater]

Try this code.. I do all kinds of file searching and this type of code hasn't failed me yet...

CODE

findDocs("c:\","")

Func findDocs($s_path, $child_dir)

$search = FileFindFirstFile($s_path & $child_dir & "*.*")

While 1

$s_filename = FileFindNextFile($search)

If @error Then ExitLoop

$filename = $s_path & $child_dir & $s_filename

If StringInStr(FileGetAttrib($filename), "D") <> 0 Then ;Check if it is a directory by seraching the file properties

findDocs($s_path, $child_dir & $s_filename & "\")

EndIf

If StringInStr($filename,".doc") Then

WriteLog($s_path & $child_dir & $filename)

EndIf WEndEndFunc

Func WriteLog($line)

$outFile = FileOpen("c:\myDocsLog.txt", 9)

FileWriteLine($outFile, $line)

FileClose($outFile)

Return 0

EndFunc