[amel27]

Creat0R

Вот так »

Супер!.. я бы на такой код не решился ...к примеру, в Си он является грубой ошибкой - компилятор не обязан соблюдать последовательность выполнения равноправных операндов - т.е. FileExists() вполне может выполниться перед DriveStatus(), поэтому мой вариант был бы другой (ниже)... Но скрипты выполняются "как написано" (всегда ли?) и это позволяет упростить некоторые проверки (контроль @error, IsArray(), etc.)

Код:

While 1
    $Next = (DriveStatus("A:")=="READY")
    If $Next Then $Next = FileExists('A:\gk.db3')
    If $Next Then ExitLoop

    If MsgBox (36, 'Предупреждение', 'Автоустановка программы, Перед продолжением установки ТРЕБУЕТСЯ вставить в Floppy дисковод,' & _
        @CRLF& ' дискету пользователя, в противном случае работа не будет продолжена.' & _
        @CRLF& 'Вы хотите продолжать работу?') = 7 Then Exit
    Sleep(100)
WEnd

MsgBox(48, "Информация", "Запущена установка программы!")

Старые методы оставлены в целях обратной совместимости. »

не, скорей в целях прямой обучаемости