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

Вниз

SearchRec.Attr=faDirectory   Найти похожие ветки 

 
Близнец   (2006-05-11 18:14) [0]

Доброго времени суток, уважаемые мастера!
Необходимо удалить файлы с именем Ray_base.mdb из подкаталогов текущего каталога dir_path. Если не указывать в условии SearchRec.Attr=faDirectory, то удаление проходит нормально в любых каталогах, указанных в dir_path. Если же указывать, то удаление происходит в случае, если текущим каталогом я например выбираю С:\Temp, если же выбираю например E:\Myfolder\Контрольные\Спецчасть, то файлы не удаляются. Не понимаю почему! Пожалуйста наведите на след моей ошибки, уже больше часа бьюсь.
ЗЫ. Мне обязательно нужно делать проверку папка это или файл.

var    iIndex : Integer;
       SearchRec : TSearchRec;
begin
 iIndex := FindFirst("*.*", faDirectory, SearchRec);
 while iIndex = 0 do begin
   if (SearchRec.Name<>"") and (SearchRec.Name<>".") and (SearchRec.Name<>"..") and (SearchRec.Attr=faDirectory)
 then
   begin
   sFileRay:=dir_path+"\"+SearchRec.Name+"\"+"Ray_base.mdb";
   if FileExists(sFileRay) then DeleteFile(sFileRay);
   end;
 iIndex :=Findnext(SearchRec);
 end;
FindClose(SearchRec);
end;


 
Virgo_Style ©   (2006-05-11 18:25) [1]

Близнец   (11.05.06 18:14)
(SearchRec.Attr=faDirectory)


((SearchRec.Attr and faDirectory)=faDirectory)


 
Близнец   (2006-05-12 07:03) [2]

Спасибо



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

Текущий архив: 2006.05.28;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.026 c
2-1147605348
Mr tray
2006-05-14 15:15
2006.05.28
делает ли что-то exit в конце процедуры


3-1144317778
arhis
2006-04-06 14:02
2006.05.28
Запсиь результатов на лиск в BDE


1-1145284839
Alexandr55
2006-04-17 18:40
2006.05.28
обработка клика на динамическом объекте


6-1138699189
Hij
2006-01-31 12:19
2006.05.28
Indy -->IdFTP системе не удается найти путь


2-1147434529
Sergey17
2006-05-12 15:48
2006.05.28
Использование UPDATE SQL (Delphi 7)