Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.06.19;
Скачать: 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 вся ветка

Текущий архив: 2003.06.19;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.024 c
7-60425
Ик сик
2003-04-12 14:17
2003.06.19
Как послать в com-port Ctrl+P?


3-60022
Eugene Suprun
2003-05-27 12:31
2003.06.19
Люди, HELP, как побороть глюки QuickReport a - Access Violation


1-60117
Seldon
2003-06-04 21:46
2003.06.19
Console Application


9-60012
Карлсон
2003-01-12 00:13
2003.06.19
DXInput


1-60249
Damx%%
2003-06-05 21:42
2003.06.19
Вопрос о StringGrid.