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

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

← →
иван8511   (2007-02-13 23:18) [0]

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

Спасибо.

---

← →
Dmitrij_K   (2007-02-13 23:32) [1]

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

---

← →
иван8511   (2007-02-14 12:20) [2]

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

Спасибо.

---

← →
Loginov Dmitry ©   (2007-02-14 16:04) [3]

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


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


 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;


---

← →
SlymRO   (2007-02-14 16:25) [4]

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

---

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

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



Память: 0.46 MB
Время: 0.027 c