Ferramentas de Usuário

Ferramentas de Site


dev_geral:pascal:snippet:fileexists

Saber se um ficheiro existe: FileExists

Quem trabalha com um compilador recente de Pascal, ou com o Delphi, tem acesso a uma útil função para saber se um determinado ficheiro existe:

uses
   SysUtils;
const
   FileName='c:teste.txt':
begin
   if FileExists(FileName) then writeln('O ficheiro existe: ',FileName);
end.

A função FileExists devolve True se o ficheiro indicado por parâmetro existir, e False caso este não exista.

Mas, e quem não usa um compilador com acesso a esta função?

Bem, é muito simples criar esta função. Basta tentar abrir o dito ficheiro: Se for possível, é porque o ficheiro existe. Se não for, é porque não existe (ou não está acessível pelo menos).

function FileExists(Filename:String):Boolean;
var
   f:File;
begin
   Assign(F,FileName);
   {$I-}
   Reset(F);
   {$I+}
   FileExists:=IOResult=0;
end;

E pronto… Um função prontinha a usar para determinar a existência/acessibilidade de um ficheiro da forma mais simples.

dev_geral/pascal/snippet/fileexists.txt · Última modificação em: 2018/05/14 21:37 (edição externa)