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]

Спасибо

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