Главная страница
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.052 c
14-1125657919
erika
2005-09-02 14:45
2005.09.25
Поиск AVI


5-1100700189
Jasurbek
2004-11-17 17:03
2005.09.25
StringGrid, который содержать объекты TComboBox


3-1123076033
redlord
2005-08-03 17:33
2005.09.25
как записать кавычку в строчное поле таблици через SQL запрос


14-1125437940
KilkennyCat
2005-08-31 01:39
2005.09.25
31 августа. С Днем Рождения!


1-1125334748
Sergey2005
2005-08-29 20:59
2005.09.25
Tag в Delphi 8