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
Nenhum comentário:
Postar um comentário