Fórum Diretorios #296147

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;

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;

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;