Dicas Delphi – Função DirectoryExists

Neste artigo explicarei como utilizar a função DirectoryExists que tem como objetivo verificar se um determinado diretório existe. Esta função está declarada na unit Sysutils.

No Delphi, crie um novo formulário e coloque um objeto button e um objeto Edit. No evento OnClick do objeto button escreva o seguinte código:

if DirectoryExists(edit1.text) then
Showmessage(‘Diretorio Existente’ )
else
Showmessage(‘Diretorio Inexistente’ )

Explicando o código

Ao clicarmos no botão a função DirectoryExists verificará se o diretório escrito no Editbox existe, caso exista a mensagem “Diretório Existente” será exibida, caso contrário a mensagem “Diretório Inexistente” será exibida.

Take care

Anúncios

Deixe um comentário

Preencha os seus dados abaixo ou clique em um ícone para log in:

Logotipo do WordPress.com

Você está comentando utilizando sua conta WordPress.com. Sair / Alterar )

Imagem do Twitter

Você está comentando utilizando sua conta Twitter. Sair / Alterar )

Foto do Facebook

Você está comentando utilizando sua conta Facebook. Sair / Alterar )

Foto do Google+

Você está comentando utilizando sua conta Google+. Sair / Alterar )

Conectando a %s