function GetFileCount(Dir: string): integer;
var
fs: TSearchRec;
begin
Result := 0;
if FindFirst(Dir + '\*.htm', faAnyFile - faDirectory - faVolumeID, fs) = 0
then
repeat
inc(Result);
until
FindNext(fs) <> 0;
FindClose(fs);
end;
Файлы в папке
Подскажите пожалуйста как сдеалть так чтобы при нажатии кнопки определялось сколько файлов в папкеи писало всю эту инфу в editы.
Я пробовал так но че то не получается,
Всем спасибо за помощь.
[COLOR=red]реклама подобного рода запрещена, будешь так продолжать - забанят. (Moderator)[/COLOR]
[COLOR=#ff0000][/COLOR]
пользуйся тэгами code
Я пробовал так но че то не получается,
Код:
Всем спасибо за помощь.
[COLOR=red]реклама подобного рода запрещена, будешь так продолжать - забанят. (Moderator)[/COLOR]
[COLOR=#ff0000][/COLOR]
пользуйся тэгами code
Напиши в начало ф-ии
ShowMessage(Dir + '\*.htm');
Может в Dir проблема.
ShowMessage(Dir + '\*.htm');
Может в Dir проблема.
Не помню точно, но в дельфи разве не надо '\\' вместо '\' писать?
мне кажется это полностью рабочий код
Код:
function GetFileCount(Dir: String; Ext: String): integer;
var
fs: TSearchRec;
begin
Result := 0;
Ext := UpperCase(Ext);
if FindFirst(Dir + '\*.*', faAnyFile, fs) = 0 then repeat
if UpperCase(ExtractFileExt(fs.Name)) = Ext then Inc(Result);
until FindNext(fs) <> 0;
FindClose(fs);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Label1.Caption := IntToStr(GetFileCount(Edit1.Text, '.htm'));
end;
var
fs: TSearchRec;
begin
Result := 0;
Ext := UpperCase(Ext);
if FindFirst(Dir + '\*.*', faAnyFile, fs) = 0 then repeat
if UpperCase(ExtractFileExt(fs.Name)) = Ext then Inc(Result);
until FindNext(fs) <> 0;
FindClose(fs);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Label1.Caption := IntToStr(GetFileCount(Edit1.Text, '.htm'));
end;