Главная страница
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.031 c
15-1170740338
vasIZmax
2007-02-06 08:38
2007.03.04
Вопрос_№1


6-1159124688
Орион
2006-09-24 23:04
2007.03.04
Как прикрутить TIdConnectionIntercept к TIdTCPClient?


15-1171211834
НЕСКАЖУ
2007-02-11 19:37
2007.03.04
0 - как что-то непонятное


15-1171022264
vajo
2007-02-09 14:57
2007.03.04
Spoolsv.exe


1-1168850523
DelphiLexx
2007-01-15 11:42
2007.03.04
Быстро определить скорость CPU