17-03-2013, 08:35 PM
18-03-2013, 06:42 AM
nouri كتب :كيف استطيع حساب عدد العناصر او عدد الملفات داخل ملفالسلام عليكم
هل تقصد مجلد أم ماذا ؟
18-03-2013, 08:04 PM
نعم هذا ما اقصده افدنا جزاك الله خير
18-03-2013, 08:34 PM
السلام عليكم
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;
18-03-2013, 09:46 PM
بارك الله فيك لكن الكود لا يحسب الملفات الموجود داخل المجلد
اقصد les sous repertoire
اقصد les sous repertoire
19-03-2013, 02:15 AM
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;