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