PDA

Показать полную графическую версию : Нужна помощь: Не могу справится с циклом


killer.bin
09-06-2009, 14:00
Помогите новичку)
Мне нужно проверить: на дискете есть файлы какие-то или нет. Если есть, то появляется MsgBox с кнопками "прервать" "повторить" "продолжить". Соответственно при нажатии на 1ю кнопку выход, перед нажатием на 2ю кнопку меняют дискету и если она вдруг не пустая тоже, то после нажатия выпрыгивает этот MsgBox опять, если чистая то идет продолжение работы. И при нажатии на 3ю, ну например, форматируется дискета и идет продолжение работы.

Creat0R
09-06-2009, 14:42
Примерно так:

If DriveStatus("A:\") = "READY" Then
While FileExists("A:\*.*")
$iRet = MsgBox(2+64, "Title", "Вставьте следующую дискету")

If $iRet = 3 Then Exit ;Aborted

If $iRet = 5 Then
;Here we delete all floppy content (FileDelete()?)
ExitLoop
EndIf
WEnd
EndIf




© OSzone.net 2001-2012