A função retorna verdadeiro se o diretório existir.
É necessário estar declarado SysUtils na seção uses,
em versões unicode declare System.SysUtils;
Função do Delphi: DirectoryExists(caminho da pasta);
Retorno: Boolean
Exemplos de uso.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 | procedure TForm1.Button1Click(Sender: TObject); begin // Testando um diretório existente. if DirectoryExists('C:\windows') then ShowMessage('O diretório existe.') else ShowMessage('O diretório não existe.'); // Testando com uma pasta que não existe. if DirectoryExists('X:\teste') then ShowMessage('O diretório existe.') else ShowMessage('O diretório não existe.'); end; |
