amel27, Creat0R ну в общем-то эти варианты работают... Спасибо за помощь а так как частенько приходится эти файлы на дискетах проверять, наваял себе небольшую функцию...
Код:
;_Fileona ('param1', 'param2', 'param3')
;в функцию отравляется название файла... проверяется наличие дискеты и наличие на ней файла
;param1 = имя файла (если указывается путь, то без первого слэша)
;пример: 'test.txt' или, во втором случае, 'mydir\test.txt'
;param2 = Титл окна выдаваемого в случае отстутствия дискеты или файла
;param3 = текст окна выдаваемого в случае отстутствия дискеты или файла
Func _Fileona ($onafile, $onatitle, $onatext)
While DriveStatus ('A:\') <> 'Ready' or Not FileExists ( 'A:\'&$onafile)
if MsgBox ( 36, $onatitle, $onatext&@CRLF&'Вы хотите продолжить?') = 7 Then
ExitLoop
EndIf
WEnd
$onafile = 0
$onatitle = 0
$onatext = 0
EndFunc
Вдруг кому пригодится.
-------
И еще вопрос к
amel27 и
Creat0R объясните пожалуйста чем "ContinueLoop" отличается от его отстутствия?
