Find if a file exists?
Find if a file exists?
(OP)
How do i find if a file exists? I'm using Turbo Pascal 7... i couldn't find anything in the help-index that resembles "File existance"

INTELLIGENT WORK FORUMS
FOR COMPUTER PROFESSIONALS Contact USThanks. We have received your request and will respond promptly. Come Join Us!Are you a
Computer / IT professional? Join Tek-Tips Forums!
*Tek-Tips's functionality depends on members receiving e-mail. By joining you are opting in to receive e-mail. Posting Guidelines |
|
Join your peers on the Internet's largest technical computer professional community.
It's easy to join and it's free.
Here's Why Members Love Tek-Tips Forums:
Register now while it's still free!
Already a member? Close this window and log in.
RE: Find if a file exists?
FileExists('C:\temp\Notes.txt');
FileSearch('Notes.txt', 'c:\temp;c:\Winnt;c:\backup');
Clive
www.kucu.co.uk
RE: Find if a file exists?
function fileExists(fname: String): boolean;
var
f: file of byte;
begin
Assign(f,fname);
{$I-}
Reset(f);
{$I+}
if (IOResult = 0) then
begin
close(f);
fileExists:=true;
end
else
fileExists:=false;
end;