Скачать: CL | DM;

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

← →
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

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

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.025 c