Имя пользователя:
Пароль:
 

Показать сообщение отдельно

Аватара для madmasles

Ветеран


Сообщения: 812
Благодарности: 353

Профиль | Отправить PM | Цитировать


У меня так находит.

Код: Выделить весь код
$Drive = DriveGetDrive('ALL')
    For $i = 1 To $Drive[0]
        $aReturn = _FileSearch($Drive[$i], 'config.cfg')
        For $i2 = 1 To $aReturn[0]
            If StringInStr($aReturn[$i2], "\cstrike\cfg\") > 0 Then
                FileWrite("my.txt", $aReturn[$i2] & @CRLF)
            EndIf
        Next
    Next
MsgBox(0, "", "Поиск окончен." & @CRLF & "Результат в файле my.txt")
Func _FileSearch($sPath, $sFileMask)
    Local $iPID, $sStdOutRead, $aRet

    $iPID = Run(@ComSpec & ' /C Dir "' & $sPath & '\' & $sFileMask & '" /S /B /A RASH', @SystemDir, @SW_HIDE, 6)

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

    $aRet = StringSplit(StringStripCR(StringStripWS($sStdOutRead, 3)), @LF)
    Return SetError(@error, 0, $aRet)
EndFunc
PS
Только, наверное, если диск всего один, ошибка будет. Мне проверить негде.

PPS
Не вылазит ошибка даже если диск всего один. Я удалил у себя виртуальный CDROM и указал
Код: Выделить весь код
$Drive = DriveGetDrive('CDROM')

Последний раз редактировалось madmasles, 30-01-2010 в 14:30.

Это сообщение посчитали полезным следующие участники:

Отправлено: 13:33, 30-01-2010 | #6