Quick Tip : Verificar se diretório esta vazio

Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Para efetuar o download você precisa estar logado. Clique aqui para efetuar o login
Confirmar voto
0
 (0)  (0)

Veja nesta Quick como verificar se um diretório esta ou não 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



 
Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Receba nossas novidades
Ficou com alguma dúvida?