OpenEuphoria

Re: How check for "path/file exists"?

• Posted by =?iso-8859-1?B?U2tvZGE=?= <tone.skoda at SIOL.NET> Sep 04, 2000
• 468 views

--returns 1 if file exists, 0 if it doesn't
global function file_exists(sequence fpath)
        integer a
        a=open(fpath,"r")
        if a=-1 then
           --not found
           a=0
        else
           --found
           close(a)
           a=1
        end if
        return a
end function