Quick Tip : Verificar se diretório esta vazio

Olá galera, nesta Quick Tips, irei mostrar verificar se um diretórios esta vazio

Nossa rotina precisa de um parâmetros para funcionar, o caminho do diretório que desejamos verificar se esta vazio ou não.

function TFrmPrincipal.ValidaDiretorio(Dir: string): Boolean;

var

SR: TSearchRec;

I: Integer;

begin

Result := False;

FindFirst(IncludeTrailingPathDelimiter(Dir) + '*', faAnyFile, SR);

for I := 1 to 2 do

  if (SR.Name = '.') or (SR.Name = '..') then

   Result := FindNext(SR) <> 0;

FindClose(SR);

end;

No onClick de um BitBtn

procedure TFrmPrincipal.BtnVerificar1Click(Sender: TObject);

begin

if DirectoryExists(EdtPasta.Text) then

begin

  if ValidaDiretorio(EdtPasta.Text) then

   TaskMessageDlg('Atenção', 'Diretório esta vazio', mtInformation, [mbOK], 0);

    else

TaskMessageDlg('Atenção', 'Diretório não está vazio', mtInformation, [mbOK], 0);

end

else

TaskMessageDlg('Erro', 'Diretorio ' + EdtPasta.Text + ' não existe ', mtError , [mbOK], 0);

end;

Fico por aqui ate à próxima Quick Tips.

Um abraço

Wesley Y

wyamazack@rwsolution.com.br