Como verificar se um diretório está vazio (não contém arquivos ou subdiretórios)

[SubCash 0]

Em algumas situações precisamos verificar se um diretório está vazio, talvez para excluí-lo. Veja a seguir o código para uma função diretorioVazio(), que recebe o caminho e nome do diretório e retorna true se o diretório estiver vazio e false em caso contrário. Incluí também um teste no evento Click de um botão:

 

function diretorioVazio(diretorio: string): Boolean; var search_rec: TSearchRec; i: Integer; begin Result := False; FindFirst(IncludeTrailingPathDelimiter(diretorio) + '*', faAnyFile, search_rec); for i := 1 to 2 do if (search_rec.Name = '.') or (search_rec.Name = '..') then Result := FindNext(search_rec) <> 0; FindClose(search_rec); end; procedure TForm1.Button1Click(Sender: TObject); var diretorio: string; begin // diretório que queremos testar diretorio := 'C:\arquivo de codigos'; // vamos testar se o diretório está vazio if diretorioVazio(diretorio) then ShowMessage('O diretório está vazio.') else ShowMessage('O diretório NÃO está vazio.') end;

Para fins de compatibilidade, esta dica foi escrita usando Delphi 2009.