Скачать: CL | DM;

Количество файлов!   Найти похожие ветки 

← →
ers ©   (2003-04-14 13:48) [0]

Как получить количество файлов в определенной папке, код плиз!

---

← →
Anatoly Podgoretsky ©   (2003-04-14 13:53) [1]

Код в FAQ

---

← →
malkolinge ©   (2003-04-14 17:43) [2]

FindFirst
FindNext
И считать :)

---

← →
max2057 ©   (2003-04-14 17:51) [3]

procedure FindFiles(dir:string;mask:string;var l:TStringList);
var
hF : THandle ;
fd : WIN32_FIND_DATA;
begin
if mask="" then exit ;
try
hF := FindFirstFile(pchar(dir+"\*.*"),fd);
if hF<>INVALID_HANDLE_VALUE then begin
if not boolean(fd.dwFileAttributes and FILE_ATTRIBUTE_DIRECTORY)
and (MatchesMask(fd.cFileName,mask)) then
l.Add(fd.cFileName);
while FindNextFileA(hF,fd) <> false do
if not boolean(fd.dwFileAttributes and FILE_ATTRIBUTE_DIRECTORY)
and (MatchesMask(fd.cFileName,mask)) then
l.Add(fd.cFileName);
end;
finally
Windows.FindClose(hF);
end;
end;

Немного переделай только

---

← →
Song ©   (2003-04-14 18:58) [4]

LB_DIR + TListBox.Count

---

← →
Songoku ©   (2003-04-14 23:32) [5]

function FilesCount(Path:String):Integer;
var
F: TWIN32FindData;
Fil:THandle;
begin
Result:=0;
Fil:=FindFirstFile(Pchar(Path+"*.*"), F);
while FindNextFile(Fil,F) = true do begin
if F.dwFileAttributes<>FILE_ATTRIBUTE_DIRECTORY then
Result:=Result+1;
end;
Windows.FindClose(Fil);
end;

---

← →
max2057 ©   (2003-04-15 13:52) [6]

F.dwFileAttributes<>FILE_ATTRIBUTE_DIRECTORY - неправильно
надо:
F.dwFileAttributes and FILE_ATTRIBUTE_DIRECTORY
потому что у каталога кроме того что он каталог может быть другой аттрибут(SYSTEM HIDDEN etc.) и может получится что каталог-на самом деле каталог но условие не выполнится так как F.dwFileAttributes содержит еще что-то кроме FILE_ATTRIBUTE_DIRECTORY

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.012 c