Последние записи

made in programmersforum 1

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

20th
Ноя

Узнать количество файлов и папок в папке

Posted by micher under Delphi

Как узнать количество файлов и папок содержащихся в папке?

Plastik

uses Windows; не забываем.
Вызываем процедуру из основной программы:
ScanDirFilesW(‘c:\NVIDIA’,x1,x2);
x1 — количество папок.
x2 — количество файлов.
Процедура сканирует все вложенные папки тоже.
Игнорирует «.» и «..».

procedure ScanDirFilesW(StartPath : pWideChar;out Dirs,Files : dword);

var xDird,xFiles : dword;

procedure FirstDir1(NextPath : pWideChar);

var xPath : packed array[0..2047]of WideChar;

xData : WIN32_FIND_DATAW;xHandle : tHandle;

begin

lstrCpyW(xPath,NextPath);

if xPath[lstrLenW(xPath)-1]'\'then lstrCatW(xPath,'\');

lstrCatW(xPath,'*.*');

xHandle:=FindFirstFile(xPath,xData) ;

if xHandleINVALID_HANDLE_VALUE then begin

repeat

if(lstrCmp('.',xData.cFileName)0) and(lstrCmp('..',xData.cFileName) 0)then begin

if(xData.dwFileAttributes and FILE_ATTRIBUTE_DIRECTORY>0)then begin

inc(xDird);

lstrCpyW(xPath,NextPath);lstrCatW(x Path,'\');lstrCatW(xPath,xData.cFil eName);

FirstDir1(xPath);

end else inc(xFiles);

lstrCpyW(xPath,NextPath);lstrCatW(x Path,'\');lstrCatW(xPath,xData.cFil eName);writeln(xPath);

{Это для того, чтобы видеть найденные объекты в консольном окне}

end;

until not FindNextFile(xHandle,xData);

FindClose(xHandle);

end;

end;

begin

xDird:=0;xFiles:=0;

FirstDir1(StartPath);

Dirs:=xDird;Files:=xFiles;

end;