(Resolvido) Verificar se existe arquivos em uma pasta

[Eder]

Ola.

tem como eu verificar se existe em uma pasta??

tipo assim:

if FileExists('c:\teste\teste.rtf') then
  begin
    showmessage('existe!!');
    end
    else
    showmessage('não existe!!');
end;

só que neste caso não sei o nome do arquivos....eu só queria saber se na pasta c:\teste existe algum arquivo não importa o nome. Tem como??

Grato

[Churc]

Function isFolderEmpty(szPath: String): Boolean;
var
  res: TSearchRec;
begin
  szPath := IncludeTrailingBackslash(szPath);
  Result := (FindFirst(szPath + '*.*', faAnyFile - faDirectory, res) <> 0);
  FindClose(res);
end;

if isfolderempty('C:\Minha Pasta') then

Pasta esta vazia ou não existe else

a pasta existe e não esta vazia

so que voce não deve passar nenhum arquivo no caminho, já que ele vai checar se existem arquivos nela, resumindo, se ela esta vazia...

abracos

[Jhonas]

vou colocar algo simples mas que funciona

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.

OBS: voce pode deixar o filelistbox invisivel

abraço

[Eder]

Pessoal valeu as dicas......ajudou bastante. :D

Grato