Verificar se diretório esta vazio

Por Wesley Y


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;


Take care