Есть ли на диске файл с данным именем?

{Функция проверки наличия файла на диске}
 
Function Exist_File(File_Name:string {Имя искомого файла}):boolean;
 
{Результаты работы функции: True - файл существует или False  - файл не доступен}
 
Var
  f : file; {Служебная файловая переменная}
begin
  assign(f,File_Name); {Назначаем имени файла файловую переменную}
  {$I-}                {Отключаем проверку ошибок ввода/вывода}
  reset(f);            {Пытаемся открыть искомый файл}
  {$I+}                {Включаем проверку операций ввода/вывода}
  if ioresult <> 0 then{Проверка результатов ввода/вывода при попытке открыть искомый файл (0 - успешно)}
    begin
      Exist_File := False; {Файл не обнаружен}
      exit                 {Завершение работы функции}
    end
                   else
      close(f);        {Файл был успешно открыт. Его нужно закрыть}
  Exist_File := True   {Файл был обнаружен}
end; { Exist_File }
 
pascal/files/is_file_exists.txt · Последнее изменение: d.m.Y H:i — romtek
 
Recent changes RSS feed Donate Powered by PHP Valid XHTML 1.0 Valid CSS Driven by DokuWiki