Ir ao topo

Tecnobyte

Logomarca da Tecnobyte
Contato por WhatsApp

WhatsApp

(69) 3421-6756

Contato por Telefone

(69) 3421-6756

(69) 3421-6757

Enviar mensagem

Enviar

mensagem

Contato por Facebook

Facebook

Contato por Skype

Skype

Atendimento de segunda a sexta, das 08h00 às 19h00 (horário de Brasília).

Delphi - Arquivos, Diretórios e Discos

Como verificar se um arquivo existe?

Banner

A função FileExists retorna True se o arquivo existe e False se não existe.

Para testar:

  • Inclua na seção uses: SysUtils, Dialogs
  • Coloque um botão no formulário.
  • Programe o evento OnClick deste botão como segue.

procedure TForm1.Button1Click(Sender: TObject);
begin
  if FileExists('C:\Tecnobyte\SAC_Free\SAC.exe') then
    ShowMessage('O arquivo existe.')
  else
    ShowMessage('O arquivo não existe.');
end;

O conteúdo desta página pode ajudar alguém? Compartilhe!