OpenEuphoria

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

• Posted by Dan B Moyer <DANMOYER at PRODIGY.NET> Sep 04, 2000
• 463 views

Huh?

I did it & it worked as far as I could tell.  I did this:

fileHandle = open(DefaultPath & DefaultFileName, "r")
if fileHandle != -1 then  -- tutorial is in default directory:

Dan



----- Original Message -----
From: "Al Getz" <xaxo at AOL.COM>
To: <EUPHORIA at LISTSERV.MUOHIO.EDU>
Sent: Monday, September 04, 2000 3:46 AM
Subject: Re: How check for "path/file exists"?


> TESTING FOR A VALID PATH
>
> Dan,
>
>   The problem with opening a file to test for validity is that you
>   can't open a directory name, so here's what i use:
>
> --------------------------------------------------------------
>
>    --  Path Validation Check  --
>
> --  checks for valid directory or filename
>
> --------------------------------------------------------------
>
> include file.e
> include get.e --for this sample only
>
> atom retv,ink
>
> function ValidatePath(sequence TargetPathName,sequence TargetFileName)
>
>   object DirEntries
>
>   DirEntries=dir(TargetPathName&TargetFileName)
>   if atom(DirEntries) then
>     --doesnt exist
>     return 0
>   else
>     return 1
>   end if
> end function
>
> --testing for a valid specific filename:
> retv=ValidatePath("c:\\euphoria\\projects\\tests\\","test.txt")
> ?retv
>
> --testing for a valid directory name:
> retv=ValidatePath("c:\\euphoria\\projects\\emptydir\\","*.*")
> ?retv
>
>
> printf(1,"%s\n",{"Press a key..."})
>
> ink=wait_key()
>
> ----------------------------------------------------------------
>
> Good luck.
>   --Al