| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Проблема с FindFirst [D6, Win95/98]

ZIP ©   (2002-06-21 05:27:00) 

Помогите пожалуйста.Что я делаю не так?
Ищу в каталоге файлы с целью их удаления.Вот примерный код:
while i=0 do
begin
FindFirst(Тут путь к папке +"\"+"*.*",faAnyFile,SRec);
ShowMessage(Тут путь к папке +"\"+SRec.Name); <-------просто смотрю,что найдено
if SRec.Attr<>faArchive then
FileSetAttr(Тут путь к папке +"\"+SRec.Name, faArchive);
if not DeleteFile(Тут путь к папке +"\"+SRec.Name) then
ShowMessage("Один из файлов не может быть удалён");
else
i:= FindNext(SRec);
end;
FindClose(SRec);

Так вот.Первый ShowMessage мне выдаёт следующее "Путь к папке\."
Ну и конечно же ничего не удаляется.Почему имя файла "."?В папке нет подпапок,только файлы.

---

ZIP   (2002-06-21 07:34:00) [1]

Спасибо большое,теперь всё работает

---

MBo   (2002-06-21 06:12:00) [2]

в каждой папке "присутствуют"
"." - текущая директория
и ".." - верхний уровень.

if FindFirst(Тут путь к папке +"\"+"*.*",faAnyFile,SRec)=0 then
repeat
...делаем, что нужно, отсекая указанные вещи

until FindNext(SRec)<>0;
FindClose(SRec);

---

Наверх