Function to Test for the Existence of a File

FAQ013 = How can I test for the existence of a file?

cls
do
  input "File";f$: if f$="" then system
  if FileExist(f$) then print "Exists" else print "No such file"
loop
system

FUNCTION FileExist(Filename$)
Rem by Earthborn
temp$ = ENVIRON$("TEMP")
IF temp$="" THEN temp$="C:"
SHELL "if exist " + Filename$ + " echo -1>" + temp$ + "\temp.txt"
a = FREEFILE
OPEN temp$ + "\temp.txt" FOR INPUT AS #a
IF LOF(a) <> 0 THEN INPUT #a, a$ ELSE a$ = "0"
CLOSE #a
KILL temp$ + "\temp.txt"
FileExist = VAL(a$)
END FUNCTION