Удалить файлы с определенными атрибутами...

← →
MAVr (2005-09-03 18:01) [0]

Есть файлы с различными атрибутыми...
Необходимо удалить все файлы у которых в «Свойствах файла» в «Атрибутах» отмечено галочками "Только чтение" и "Архивный" (вместе).
Может кто подскажет как можно это осуществить...?

Вот то что пробывал делать... Но результат не достигнут, записывает в файл (FBad) все файлы... :
u4et := 0;
for zzz := 0 to 2 do begin
ChDir(Memo2.Lines[zzz]);
FindFirst(GetCurrentDir+"\*.doc", faReadOnly, F);
Edit1.Text := Edit1.Text + F.Name;

repeat
memoBad.lines.add("FinishInfoFile"+GetCurrentDir+F.Name);
u4et:=u4et+1;
until findnext(F)<>0;
findclose(F);
end;
k:=0;
repeat
ResZZ:=(Form1.memoBad.Lines.Strings[k]);
WriteLN (FBad,ResZZ);
k:=k+1;
until k = u4et;
end;

← →
Eraser © (2005-09-03 18:18) [1]

if ((f.Attr or faReadOnly) = f.Attr) and ((f.Attr or faArchive) = f.Attr) then

должно работать.

Удалить файлы с определенными атрибутами... Найти похожие ветки