[решено] Как сделать скрипт на AutoIT чтобы он проверял все диски и искал файл

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)

- AutoIt (http://forum.oszone.net/forumdisplay.php?f=103)

Как сделать скрипт на AutoIT чтобы он проверял все диски и искал файл

Добрый день! Я новичок в написании скриптов.
Подскажите как сделать скрипт на AutoIT, чтобы он проверял все диски (съемные и не съемные) на предмет наличия определенного файла и при нахождении такового делал как в это скрипте:
for %%i in (C D E F G H I J K L M N O P Q R S T U V W X Y Z) do if exist %%i:\WIN51 set CDROM=%%i:
set DVD=%CDROM%
Потом запускается установка программ.
Пример: start/wait %cdrom%\WPI\Winrar.exe

Alex_86_,
Попробуйте сделать так.

Код:

Global $aDrive, $sPath, $hSearch, $sFileExe, $sDirSearch = '\Windows\', $sDirExe = 'System32\'

;поменяйте имена папок $sDirSearch и $sDirExe на нужные Вам, например, на \WIN51\ и WPI\ как в Вашем примере.

$aDrive = DriveGetDrive('ALL')

If @error Then Exit MsgBox(16, 'Error', 'Ошибка поиска дисков', 5)

For $i = 1 To $aDrive[0]

    If FileExists($aDrive[$i] & $sDirSearch) Then

        $sPath = $aDrive[$i] & $sDirSearch

        ExitLoop

    EndIf

Next

If Not $sPath Then Exit MsgBox(16, 'Error', 'Ни на одном диске не найдена папка ' & $sDirSearch, 5)

$sPath &= $sDirExe

$hSearch = FileFindFirstFile($sPath & '*.exe')

If @error Then Exit MsgBox(16, 'Error', 'В папке ' & $sPath & ' не найдены файлы *.exe', 5)

While 1

    $sFileExe = FileFindNextFile($hSearch)

    If @extended Then ContinueLoop

    If @error Then ExitLoop

    ConsoleWrite($sPath & $sFileExe & @LF);смотрите в справке функции Run, RunWait, RunAs, RunAsWait, ShellExecute, ShellExecuteWait и тд...

WEnd

madmasles,
спасибо! Все работает.

Alex_86_,
Я забыл в самом конце закрыть поиск:

Код:

;...

WEnd

FileClose($hSearch)