| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
SearchRec.Attr=faDirectory [D7]
Близнец © (2006-05-11 18:14:00)Доброго времени суток, уважаемые мастера!
Необходимо удалить файлы с именем 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;
Близнец (2006-05-12 07:03:00) [1]Спасибо
Virgo_Style (2006-05-11 18:25:00) [2]Близнец (11.05.06 18:14)
(SearchRec.Attr=faDirectory)
((SearchRec.Attr and faDirectory)=faDirectory)
| |
