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

Anúncios

Deixe um comentário

Preencha os seus dados abaixo ou clique em um ícone para log in:

Logotipo do WordPress.com

Você está comentando utilizando sua conta WordPress.com. Sair / Alterar )

Imagem do Twitter

Você está comentando utilizando sua conta Twitter. Sair / Alterar )

Foto do Facebook

Você está comentando utilizando sua conta Facebook. Sair / Alterar )

Foto do Google+

Você está comentando utilizando sua conta Google+. Sair / Alterar )

Conectando a %s