cxShellListView dosya sayısı

[sako]

edit1.Text:= inttostr(cxShellListView1.FolderCount);

yukarıdaki kod ile cxShellListView içindeki klasör sayısını alabiliyorum. Ancak benim istediğim klasör içindeki dosya sayısı. Yani açtığım klasör içindeki dosyaların sayısını almak istiyorum ama kodu oluşturamadım. Nasıl alabilrim bu dosya sayısını acaba ?

[SimaWB]

Yanlış test etmediysem FolderCount klasör + dosya sayısını veriyor.
Dolayısıyla sen sadece dosya sayısı için döngü içinde kontrol yapıp kendin saymalısın sanırım:

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
var
  I, DosyaSay: integer;
begin
  DosyaSay := cxShellListView1.FolderCount;
  for I := 0 to cxShellListView1.FolderCount-1 do
    if cxShellListView1.Folders[I].IsFolder then
       Dec(DosyaSay);

  Caption := Inttostr(DosyaSay);
end;