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.

Veja na figura abaixo, o programa em funcionamento:

 

Vimos como é fácil o uso da função DirectoryExists, que pode ser usado por exemplo em programas que fazem cópia de arquivos. Mas uma observação, essa função só está declarada na unit Sysutils que vem no Delphi 6.