Форум: "Основная";
Текущий архив: 2002.07.04;
Скачать: [xml.tar.bz2];

Вниз

Проблема с FindFirst   Найти похожие ветки 

← →
ZIP   (2002-06-21 05:27) [0]

Помогите пожалуйста.Что я делаю не так?
Ищу в каталоге файлы с целью их удаления.Вот примерный код:
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 мне выдаёт следующее "Путь к папке\."
Ну и конечно же ничего не удаляется.Почему имя файла "."?В папке нет подпапок,только файлы.

---

← →
MBo   (2002-06-21 06:12) [1]

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

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

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

---

← →
ZIP   (2002-06-21 07:34) [2]

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

---

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

Форум: "Основная";
Текущий архив: 2002.07.04;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.006 c