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

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

Наверх




Память: 0.47 MB
Время: 0.066 c
2-1170873071
Yozch1
2007-02-07 21:31
2007.03.04
Некорректная работа wsMaximized


2-1171629155
Saposo
2007-02-16 15:32
2007.03.04
try ..... except


6-1158652641
pirate
2006-09-19 11:57
2007.03.04
Элементарная передача строк


2-1171045246
Kolan
2007-02-09 21:20
2007.03.04
Я хочу изменить способ отображения текста в TEdit, как?


2-1171190317
vasIZmax
2007-02-11 13:38
2007.03.04
Глупый вопрос..._2