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

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

Аватара для Creat0R

Must AutoIt


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

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


Можно ещё вот так, для надёжности (+ поиск только первого найденного файла):

Код: Выделить весь код
#include <Array.au3>

$aDrives = DriveGetDrive("FIXED")

For $i = 1 To UBound($aDrives) - 1
    $sReturn = _FileSearch($aDrives[$i], "config.cfg", "\cstrike\cfg\")
    If Not @error Then Exit MsgBox(64, 'Title', $sReturn)
Next

Func _FileSearch($sPath, $sFileMask, $sInPath = "")
    Local $iLen, $iPID, $sStdOutRead, $sRet, $aRet

    $iLen = StringLen($sInPath & $sFileMask)
    $iPID = Run(@ComSpec & ' /C Dir "' & $sPath & '\' & $sFileMask & '" /O:-D /S /B /A RASH', $sPath, @SW_HIDE, 6)

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

        If $sInPath <> "" And StringRight(StringStripWS($sStdOutRead, 2), $iLen) = $sInPath & $sFileMask Then
            StdinWrite($iPID)
            If ProcessExists($iPID) Then ProcessClose($iPID)
            Return $sStdOutRead
        EndIf
    WEnd

    Return SetError(1, 0, 0)
EndFunc
Цитата sashadeg:
как теперь из этой таблицы вытащить значения? »
Код: Выделить весь код
For $i = 1 To $aReturn[0]
      MsgBox(64, "", "Значение №" & $i & ": " & $aReturn[$i])
Next

-------
“Сделай так просто, как возможно, но не проще этого.”... “Ты никогда не решишь проблему, если будешь думать так же, как те, кто её создал.”

Альберт Эйнштейн

P.S «Не оказываю техподдержку через ПМ/ICQ, и по email - для этого есть форум. ©»

http://creator-lab.ucoz.ru/Images/Icons/autoit_icon.png Русское сообщество AutoIt | http://creator-lab.ucoz.ru/Images/Ic...eator_icon.png CreatoR's Lab | http://creator-lab.ucoz.ru/Images/Icons/oac_icon.png Opera AC Community


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

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

Отправлено: 14:11, 30-01-2010 | #10