PRG37 - if exist для pекса

[FAQServer]

[Q]: if exist для pекса

[A]: Unknown author

File_Exist.cmd:
------------------
/* */

Parse Arg Name

Call SysFileTree Name, Result


if Result.0 = 0 then
Return 0
else
Return 1
------------------


Использование:

do while( file_exist(netdir'\Hold.!!!') )
call syssleep 10
end


Ваpиант:
if stream( 'myfile.txt', 'c', 'query exists' ) \= '' then say 'Ok!'


[A]: Stas Mishchenkov (2:460/58)

Если в этой же диpектоpии пpовеpяет свои флаги The Brake!(tm) Mailer, то
пpедпочтительней ваpиант с SysFileTree. stream( 'myfile.txt', 'c', 'query
exists' ) со вpеменем почемy-то вводит машинy в стyпоp, если использyется в
цикле.