como faço p/ verificar se o arquivo existe no diretorio

23/05/2003

0

Ola p/ quem puder me ajudar !

AssignFile(TXT,´C:\USIProjetos\Prods.TXT´) ;

Associei a variavel TXT ao arquivo Prods.TXT que esta no diretorio
C:\USIProjetos

Pergunta: como faço p/ verificar se o arquivo existe no diretorio ? Se não existir ele retornaria uma mensagem dizendo que não existe.

Obrigado
Edmar


Martelato

Martelato

Responder

Posts

23/05/2003

Jairroberto

Olá, Edmar!

Você deve fazer esta verificação antes mesmo de usar o AssignFile. Há uma função no Delphi para isso:

function FileExists(const FileName: string): Boolean;


Ela está declarada na unit SysUtils. Você pode usá-la da seguinte forma:

procedure TForm1.Button1Click(Sender: TObject);
var
  NomeArquivo: string;
  TXT: TextFile;
begin
  NomeArquivo := ´C:\USIProjetos\Prods.TXT´;
  if not FileExists(NomeArquivo) then
    raise Exception.CreateFmt(´O arquivo "¬s" não existe!´, [NomeArquivo]);

  AssignFile(TXT, NomeArquivo);
  Reset(TXT); // abre o arquivo
  try
    // processe o arquivo como desejar
  finally
    CloseFile(TXT); // fecha o arquivo
  end;
end;



Um abraço,
Jair


Responder

Que tal ter acesso a um e-book gratuito que vai te ajudar muito nesse momento decisivo?

Ver ebook

Recomendado pra quem ainda não iniciou o estudos.

Eu quero
Ver ebook

Recomendado para quem está passando por dificuldades nessa etapa inicial

Eu quero

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar