Recursive File Search, with multiple file masks.

[Simucal]

I'm writing a script for work and it involves locating our labs xls and cvs files on all the fixed drives.

The script works fine if I only specify one mask, but if I specify two.. It does not. It returns '2' to the array rather than a list of found files. I'm using w0uters _FileSearch function, which utilizes the dos DIR command.

However, if you type this command in manually it works fine:

dir /B /S C:\*.cvs C:\*.xls

But when I try to run it in this script, I have the problem mentioned above:

#include <Array.au3>

Global $a_DriveList[1],$a_TempList[1],$s_FileList, $i_TotalFiles

$a_DriveList = DriveGetDrive("FIXED")
;_ArrayDisplay($a_DriveList, "Drives")

For $i = 1 To UBound($a_DriveList) - 1
$a_TempSearch = _FileSearch($a_DriveList[$i]&"\*.xls " & $a_DriveList[$i]&"\*.cvs", 1)
$i_TotalFiles += $a_TempSearch[0]
$s_FileList &= _ArrayToString($a_TempSearch, "*",1)
Next
$a_FileList = StringSplit($s_FileList, "*")
$a_FileList[0] = $i_TotalFiles
_ArrayDisplay($a_FileList, "Search Results")

Func _FileSearch($s_Mask = '', $i_Recurse = 1)
    Local $s_Command = ' /c dir /B "'
    If $i_Recurse = 1 Then $s_Command = ' /c dir /B /S "'
    Local $s_Buf = '', $i_Pid = Run(@ComSpec & $s_Command & $s_Mask & '"', @WorkingDir, @SW_HIDE, 2+4)
   ;ProcessSetPriority($i_Pid, 5)
    While Not @error
        $s_Buf &= StdoutRead($i_Pid)
    WEnd
    $s_Buf = StringSplit(StringTrimRight($s_Buf, 2), @CRLF, 1)
    ProcessClose($i_Pid)
    If UBound($s_Buf) = 2 AND $s_Buf[1] = '' Then SetError(1)
    Return $s_Buf
EndFunc ;==>_FileSearch

So.. I'm not quite sure where I'm going wrong. Maybe someone else can point me in the right direction.

[evilertoaster]

Just from the looks of things I'd guess the problem is more so with the _FileSearch function or how you call it...are you sure that function is supposed allow mutliple searches at the same time?

[randallc]

Hi,

I've used a comma before I think; I'll have to test it

"dir /B /S C:\*.cvs,C:\*.xls" ???

Randall

[randallc]

Hi,

No, it's the quotes; works this way; [i have tested; works here OK; don't really need the quotes or the commas , though, once function fixed!]

$a_TempSearch = _FileSearch('"'&$a_DriveList[$i]&'\*.xls "' &','& '"'&$a_DriveList[$i]&'\*.cvs"', 1)
...
Local $s_Command = ' /c dir '
$s_Command&=$s_Mask&' /B '
If $i_Recurse = 1 Then $s_Command &= ' /S '
Local $s_Buf = '', $i_Pid = Run(@ComSpec & $s_Command  , @WorkingDir, @SW_HIDE, 2+4)

Randall Edited June 21, 2006 by randallc

[Simucal]

Thanks randallc, you are a true pro!

I missed that :">

Edited June 21, 2006 by Simucal