Работа с файлами

← →
Tort (2006-03-02 14:48) [0]

Добрый день Мастера!

Помогите пожалуйста разобраться вот с такой задачей.
Необходимо найти и отобразить все скрытые файл, т.е.
не только по маске "\*.txt" но и к примеру "\*.doc"и "\*.ехе".
Короче все сразу.

Я пишу примерно так. Оно работает но считает только текстовые файлы,
а мне необходимо все файлы. Их может быть много и все разного типа.

function CountHidden(var dir: string): integer;
var SR: TSearchrec;
begin
dir:="D:\test";
result:=0;
if FindFirst(dir+"\*.txt",faHidden,SR)=0 then
repeat
inc(result);
until
FindNext(SR)<>0;
FindClose(Sr);
end;

И ещё не понятна аналогичная вещь - но с папками.
пытаюсь определить общее количество папок в указанной директории.
Посмотрите плиз в чем ошибка.

function CountDir(var Dir: string): integer;
var SR: TSearchrec;
begin
Dir:= "D:\test";
Result:=0;
if FindFirst(dir, faDirectory,SR)=0 then
repeat
inc(result);
until
FindNext(SR)<>0;
FindClose(SR);
end;

← →
Руслан © (2006-03-02 14:51) [1]

> if FindFirst(dir+"\*.txt",faHidden,SR)=0 then

А почему не
if FindFirst(dir+"\*.*",faHidden,SR)=0 then

← →
Tort (2006-03-02 14:52) [2]

Я так уже пробовал почему-то показыват два-три файла а у меня их более десятка :(.

← →
Руслан © (2006-03-02 14:59) [3]

> until
> FindNext(SR)<>0;

помоему, эти строки наоборот должны распологаться
FindNext(SR)<>0;
until

← →
Руслан © (2006-03-02 15:00) [4]

Мда-а-а... Затупил я....

← →
Руслан © (2006-03-02 15:01) [5]

> Руслан © (02.03.06 14:59) [3]

прошу не смеяться ))

← →
Tort (2006-03-02 15:04) [6]

А че смешного-то тут? :) Это ж форум для новичков.
Я сам такой :) Сначала мозги работают - потом как ежик в тумане :J

Дружище может у тебя ещё какие-нить идеи есть,а ?

Вы забыли указать маску

function CountDir(var Dir: string): integer; var SR: TSearchrec; begin Dir:= "D:\test\*.*"; Result:=0; if FindFirst(dir, faDirectory,SR)=0 then repeat inc(result); until FindNext(SR)<>0; FindClose(SR); end;

← →
Tort (2006-03-02 15:07) [8]

а............а.........а....... упс.

Эт, надоже, ,блин :) Значит мозги уже стареть начали - поберечь бы белое вещество :)
А есть ли вообще гарантия "достоверности" представления информации?
И еще: каталоги точно также можно считать?

про каталоги речь и шла. function CountDir

Работа с файлами Найти похожие ветки