Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  

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

Googler


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

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


Цитата Pozia:
Как сделать скрипт, чтобы он проверял все диски (съемные и не съемные) на предмет наличия определенного файла и при нахождении такового выполнял один EXE файл, а при не нахождении выполнял другой EXE файл? »
Код: Выделить весь код
$sDRV = _DriveGetByTag("WIN51")

If $sDRV=="" Then
    MsgBox(0, "Диск не найден", "Запуск файла 1")
    ; RunWait("file1.exe")
Else
    MsgBox(0, "Диск "& $sDRV, "Запуск файла 2")
    ; RunWait("file2.exe")
EndIf

; Поиск буквы диска по маркерному файлу
; -------------------------------------
Func _DriveGetByTag($sTag, $sType = "ALL")
    Local $sDrive = "", $aDrives = DriveGetDrive($sType)
    For $i=1 To $aDrives[0]
        If DriveStatus($aDrives[$i]) = "READY" Then
            If FileExists($aDrives[$i] &"\"& $sTag) Then Return $aDrives[$i]
        EndIf
    Next
    Return SetError(1,0,"")
EndFunc ; ==> _DriveGetByTag
Это сообщение посчитали полезным следующие участники:

Отправлено: 10:05, 05-03-2009 | #6