Pasta Vazia

[orc 0]

Como verifico no Delphi s uma pasta está vazia ?????

[Pantoja 5]

Tirado do Forum SCRIPTBRASIL por Jhonas

 

 

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, FileCtrl;

type
  TForm1 = class(TForm)

	Button1: TButton;
	FileListBox1: TFileListBox;

	procedure Button1Click(Sender: TObject);
  private
	{ Private declarations }
  public
	{ Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin

  if not DirectoryExists('c:\TESTE') then
	 begin
		showmessage('diretorio não existe!!');
	 end
  else
	 begin

	   if FileListBox1.Items.Count <> 0 then
		  showmessage('existe arquivos !!')
	   else
		  showmessage('não existe arquivos!!');
	 end;


end;

end.

 

 

Abraços

[orc 0]

Pabtoja ai ele esta usando o componente filelistbox eu gostaria de fazer isso manualmente.

[Pantoja 5]

Ajudamos e ainda temos que advinhar...

 

rsrsrsrsr

 

 

manualmente ja nao saberia dizer.

 

 

Abraços e boa sorte!

[orc 0]

resolvido

[Rodrigo Miss 1]

Fiz uma funçao aqui .... talvez lhe ajude:

 

function IsEmptyDir(const Dir: String): Boolean;
var
  Search: TSearchRec;
  x: Integer;
begin
  Result:= True;
  x:= FindFirst(Dir + '*.*', faAnyFile, Search);

  if x = 0 then
  begin
	while x = 0 do
	begin
	  if (Search.Name <> '.') and (Search.Name <> '..') then
	  begin
		FindClose(Search);
		Result:= False;
		Break;
	  end;

	  x:= FindNext(Search);
	end;
  end;

  FindClose(Search)
end;

if (IsEmptyDir('C:\teste\')) then
  begin
	ShowMessage('A pasta esta vazia');
  end
  else begin
	ShowMessage('Nesta pasta conteum arquivos');
  end;