Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.09.25;
Скачать: 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 вся ветка

Текущий архив: 2005.09.25;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.034 c
1-1125686131
hgd
2005-09-02 22:35
2005.09.25
Алгоритм заливки


14-1125646228
ocean
2005-09-02 11:30
2005.09.25
Западный человек законопослушен?


14-1125469097
stud
2005-08-31 10:18
2005.09.25
SQL books online это так должно быть?


5-1100689736
Stanislav
2004-11-17 14:08
2005.09.25
Регистрация редактора свойств


9-1110990439
Fosgen
2005-03-16 19:27
2005.09.25
Проблема при переносе проги из оконного в полный экран в GLScene