Удалить файлы с определенными атрибутами... [D7, WinXP]
MAVr © (2005-09-03 18:01:00)
Есть файлы с различными атрибутыми...
Необходимо удалить все файлы у которых в «Свойствах файла» в
«Атрибутах» отмечено галочками "Только чтение" и "Архивный"
(вместе).
Может кто подскажет как можно это осуществить...?
Вот то что пробывал делать... Но результат не достигнут,
записывает в файл (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:00) [1]
if ((f.Attr or faReadOnly) = f.Attr) and
((f.Attr or faArchive) = f.Attr) then
должно работать.
Наверх 
ЧАТ |
Орешник |
|
