بدست آوردن تعداد فایلهای یک شاخه

[behzad_dr]

چطور میشه تعداد فایلهای درون یک شاخه خاص رو بدست آوررد ؟

[کامروا]

سلام
یه FileListBox اضافه کن
و سپس:

procedure TForm1.Button1Click(Sender: TObject);
begin
FileListBox1.ApplyFilePath('D:\Dir');
Label1.Caption := inttostr(FileListBox1.Count);
end;

[Felony]

اگر از دلفی 7 استفاده میکنید با استفاده از توابع FindFirst و FindNext ؛ اگر از دلفی 2009 به بعد استفاده میکنید توسط کلاس TDirectory از کتابخانه IOUtils به صورت زیر ( کد رو همین جوری نوشتم و تست نکردم ولی نباید مشکلی داشته باشه ) :

var
FileCount: Integer;
FileName: String;
begin
FileCount:= 0;
for FileName in TDirectory.GetFiles('C:\Windows\', '*.*', TSearchOption.soAllDirectories) do
Inc(FileCount);
end;