| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Удаление старых файлов [D6, XP]

иван8511 ©   (2007-02-13 23:18:00) 

Подскажите, пожалуйста, как в папке например c:\xxx, удалить все файлы, время создания которых меньше определенной даты, например 10.02.2007.

Спасибо.

---

SlymRO   (2007-02-14 16:25:00) [1]

http://forum.sysadmins.ru/3/79925/

---

Loginov Dmitry   (2007-02-14 16:04:00) [2]

> Ну это же форум для начинающих. Помогите, пожалуйста, примером.


жалко стало даже. На держи:


 uses
   DateUtils;

 {$R *.dfm}

 procedure TForm1.Button1Click(Sender: TObject);
 var
   SR: TSearchRec;
   OldFiles: TStringList;
   AMinDate: TDate;
   I: Integer;
 const
   SearchPath = 'e:\temp\';
 begin
   AMinDate := EncodeDate(2007, 02, 10);
   OldFiles := TStringList.Create;
   try
     if FindFirst(SearchPath + '*.*', faArchive, SR) = 0 then
     try
       repeat
         if FileExists(SearchPath + SR.Name) and
           (FileDateToDateTime(SR.Time) < AMinDate)
         then
           OldFiles.Add(SearchPath + SR.Name);

       until FindNext(SR) <> 0
     finally
       FindClose(SR);
     end;

     for I := 0 to OldFiles.Count - 1 do
       DeleteFile(OldFiles[I]);
   finally
     OldFiles.Free;
   end;
 end;


---

иван8511   (2007-02-14 12:20:00) [3]

Ну это же форум для начинающих. Помогите, пожалуйста, примером. А то я не знаю даже с чего начать. Как например получить дату создания файла? Как по очереди проверить каждый файл от первого до последнего?

Спасибо.

---

Dmitrij_K   (2007-02-13 23:32:00) [4]

Поиск - FindFirst FindNext FindClose
Удаление - DeleteFile
Подробности F1 и http://msdn2.microsoft.com/en-us/library/default.aspx

---

Наверх