كيف استطيع حساب عدد العناصر او عدد الملفات داخل ملف

[NOURI]

كيف استطيع حساب عدد العناصر او عدد الملفات داخل ملف

[لؤي]

كيف استطيع حساب عدد العناصر او عدد الملفات داخل ملف

السلام عليكم
هل تقصد مجلد أم ماذا ؟

[NOURI]

نعم هذا ما اقصده افدنا جزاك الله خير

[SMP3]

السلام عليكم

PHP كود :

function GetFileCount(Dir : String):Integer;
var SR :TSearchRec;
begin
Result:=0;
Dir:=IncludeTrailingBackslash(Dir)+'*.*';
if FindFirst(Dir,faAnyFile,SR)=0 then
 begin
 repeat
   if (SR.Attr <> faDirectory )then
   Inc(Result);
 until FindNext (SR) <>0;
 end;
end; 


[NOURI]

بارك الله فيك لكن الكود لا يحسب الملفات الموجود داخل المجلد
اقصد les sous repertoire

[SMP3]

PHP كود :

procedure FindFiles(FilesList: TStringList; StartDir, FileMask: string);
var
  SR: TSearchRec;
  DirList: TStringList;
  IsFound: Boolean;  i: integer;
begin
  if StartDir[length(StartDir)] <> '\' then
    StartDir := StartDir + '\';


  IsFound :=
    FindFirst(StartDir+FileMask, faAnyFile-faDirectory, SR) = 0;
  while IsFound do begin
    FilesList.Add(StartDir + SR.Name);
    IsFound := FindNext(SR) = 0;
  end;
  FindClose(SR);


  DirList := TStringList.Create;
  IsFound := FindFirst(StartDir+'*.*', faAnyFile, SR) = 0;
  while IsFound do begin
    if ((SR.Attr and faDirectory) <> 0) and
         (SR.Name[1] <> '.') then
      DirList.Add(StartDir + SR.Name);
    IsFound := FindNext(SR) = 0;
  end;
  FindClose(SR);


  for i := 0 to DirList.Count - 1 do
    FindFiles(FilesList, DirList[i], FileMask);

  DirList.Free;
end; 


PHP كود :

var
  FilesList: TStringList;
begin
  FilesList := TStringList.Create;
  try
    FindFiles(FilesList, 'C:\Users\', '*');
    //ListBox1.Items.Assign(FilesList);
    Caption := 'Files Counts: ' + IntToStr(FilesList.Count);
  finally
    FilesList.Free;
  end;