Текущий архив: 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.035 c
