[semiono]

Мне понадобилось запустить все регфайлы в @ScriptDir & "\*\*\*....... рекурсивноооо
Как всегда ничего приличного не нашёл и был очень зол
Заодно поглядел что есть из файнд файл и примеров гугл, и там тоже громадные скрипты для такой простой задачи. :\
Хотя понмиаю, это у меня прстая задача, конечно там видимо что-то более серьёзное...
??

[Creat0R]

Код:

#include <Array.au3>

$aReturn = _FileSearch(@WindowsDir, "File\....$", 0)

_ArrayDisplay($aReturn)

Func _FileSearch($sPath, $sRegExp_FileMask, $iCaseSense=0)
    Local $iPID, $sStdOutRead, $aRet, $sFindStr, $sCaseStr

    If Not $iCaseSense Then $sCaseStr = ' /I'
    $sFindStr = 'Dir "' & $sPath & '" /S /B | FindStr' & $sCaseStr & ' /R "' & $sRegExp_FileMask & '"'

    $iPID = Run(@ComSpec & ' /C ' & $sFindStr, @SystemDir, @SW_HIDE, 2)

    While 1
        $sStdOutRead &= StdoutRead($iPID)
        If @error <> 0 Then ExitLoop
    WEnd

    $aRet = StringSplit(StringStripCR(StringStripWS($sStdOutRead, 3)), @LF)
    Return SetError(@error, 0, $aRet)
EndFunc

Можно ли организовать поиск файла через WinAPI »

Врядли оно будет быстрее (в AutoIt).

[cra5h_]

Такс, коллекция скриптов с рекурсивным поиском пополняется. первыми двумя способами файл ищется 14-16 сек, последним способом 49-52 о_О

[Creat0R]

первыми двумя способами файл ищется 14-16 сек, последним способом 49-52 »

Ну так в чём проблема, первый способ значит быстрее .

P.S
А имя файла точное, или нужен поиск по маске? Возможно замедление из за поиска используя регулярные выражения.

[cra5h_]

имя файла задаю полное, файл в папках существует такой только один. виндовым поиском ищет до 10 сек

[cra5h_]

забросил поиск решения об быстром поиске файла. Подскажите как остановить функцию поиска файла после того как файл найден, потому как при нахождении файла функция продолжает сканировать остальные папки.

[Yashied]

Подскажите как остановить функцию поиска файла после того как файл найден, потому как при нахождении файла функция продолжает сканировать остальные папки. »

Код:

#Include <File.au3>

Func _FindFiles($sRoot, $sFile)
    Local $FileList
    $FileList = _FileListToArray($sRoot, $sFile, 1)
    If Not @error Then
        For $i = 1 To $FileList[0]
            $filename2 = StringMid($FileList[$i], StringInStr($FileList[$i], "\", 0, -1) + 1)
            MsgBox(64, "", $filename2)
            Return 1
        Next
    EndIf
    $FileList = _FileListToArray($sRoot, '*', 2)
    If Not @error Then
        For $i = 1 To $FileList[0]
            If _FindFiles($sRoot & '\' & $FileList[$i], $sFile) Then
                Return 1
            EndIf
        Next
    EndIf
    Return 0
EndFunc   ;==>_FindFiles

_FindFiles('C:\', '*.au3')

[amel27]

коллекция скриптов с рекурсивным поиском пополняется »

тогда до кучи, вариант через WMI:

Код:

#include <array.au3>

$a = _FileFindLike("spuninst.exe", "C:\\WINDOWS\\$")
_ArrayDisplay($a)

Func _FileFindLike($strRight, $strLeft = @HomeDrive, $sComputer = ".")
    Local $arrRight= StringRegExp($strRight, "^(.*?(?:\.([^.\\]*))?)$", 3)
    If Not(IsArray($arrRight)) Then Return SetError(1, 1)

    Local $arrLeft = StringRegExp($strLeft , "^([A-Za-z]:)(.*)", 3)
    If Not(IsArray($arrLeft)) Then Return SetError(1, 2)

    Local $strDrive = $arrLeft[0], $strPath = $arrLeft[1]
    Local $strName = $arrRight[0], $strExtn = ""
    If UBound($arrRight)=2 Then $strExtn = $arrRight[1]

    Local $objWMI = ObjGet("winmgmts:\\" & $sComputer & "\root\cimv2")
    If Not(IsObj($objWMI)) Then Return SetError(2, 1, "")

    Local $strQuery = 'SELECT * FROM CIM_DataFile WHERE Drive="'& $strDrive & _
        '" AND Extension="'& $strExtn &'" AND Path LIKE "'& $strPath & _
        '%" AND Name LIKE "%'& $strName &'"'
    Local $arrRes[1] = [0], $colItems = $objWMI.ExecQuery($strQuery)
    If Not(IsObj($colItems)) Then Return SetError(2, 2, "")

    For $objItem In $colItems
        $arrRes[0]+=1
        ReDim $arrRes[$arrRes[0]+1]
        $arrRes[$arrRes[0]]=$objItem.Path
    Next

    Return $arrRes
EndFunc

[cra5h_]

работает пасиба