Diretorios

Delphi

20/09/2005

Tem como saber qtos arquivos tem em um diretorio? Existe alguma função? Como fazer?


Foxcyber

Foxcyber

Curtidas 0

Respostas

Wilson Brito

Wilson Brito

20/09/2005

[b:04eeff79e2]Uses FileCtrl,Forms;[/b:04eeff79e2]

Function QtdDiretorios(Diretorio:String):Integer;
var
  F: TFileListBox;
begin
  If DirectoryExists(Diretorio) then begin
    F := TFileListBox.Create(nil);
    F.Parent := TForm(Application.MainForm);
    F.Directory := Diretorio;
    Result := F.Items.Count;
    F.Free;
  end else begin
    Result := -1;
  end;
end;



[b:04eeff79e2]Exemplo:[/b:04eeff79e2]

procedure TForm1.Button1Click(Sender: TObject);
var
  qtdarq: integer;
begin
  qtdarq := QtdArquivos(´c:\´);
  if qtdarq = -1 then begin
    ShowMessage(´Diretório inválido´);
  end else begin
    showmessage(inttostr(qtdarq));
  end;
end;
[/b]


GOSTEI 0
Wilson Brito

Wilson Brito

20/09/2005

Correção - A função é:

Function QtdArquivos(Diretorio:String):Integer;
var
  F: TFileListBox;
begin
  If DirectoryExists(Diretorio) then begin
    F := TFileListBox.Create(nil);
    F.Parent := TForm(Application.MainForm);
    F.Directory := Diretorio;
    Result := F.Items.Count;
    F.Free;
  end else begin
    Result := -1;
  end;
end;



GOSTEI 0
POSTAR