Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.07.04;
Скачать: CL | DM;

Вниз

Проблема с 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;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.011 c
1-9875
al2002
2002-06-21 23:41
2002.07.04
String into ListBox


7-10024
ShaH
2002-01-26 13:33
2002.07.04
Com порты


1-9866
Stone
2002-06-20 21:49
2002.07.04
виртуальный desktop


7-10034
Лёха
2002-04-07 16:52
2002.07.04
Может вам это покажется дурацким вопросом, но как создать окно св


3-9766
Trixter
2002-06-13 10:38
2002.07.04
Капризный Halcyon