FileExists

[Desha]

В АВС Паскале есть процедура FileExists(х). Она возвращает истину если имеется файл на жестком диске с именем Х и ложь если его нет. Дання процедур не работает в Простом Паскале. Есть ли альтернатива?

[Serge_Bliznykov]

вот два варианта. выбирайте любой, какой нравится:

uses Dos;

function FileExist(FileName : string) : boolean;
var
  FileParameters : SearchRec;
begin
  FindFirst(FileName,AnyFile,FileParameters);
  if (DosError = 0) { or (DosError = 18)}
    then
      FileExist := True
    else
      FileExist := False;
end;

function ExistFile(FName:string):Boolean;
var
        F:File;
begin
        Assign(F,FName);
        {$I-}
        Reset(F,1);
        {$I+}
        If IoResult=0 then begin
                ExistFile:=True;
                Close(F);
        end
        else
                ExistFile:=false;
end;

[Desha]

Нашла вариан для тех, кто не хочет возиться с процедурами. Для лучшей понятности вывожу сообщения-итоги проверки

 Assign(f,fname);
     {$I-}
     Reset(f);
     {$I+}
     If IOResult=0 then Writeln('File Yes')
      else
      If IOresult<>1 then Writeln('File No');