TSearchRec sr;
if(FindFirst("C:\\Delete files\\1\\*.*",faAnyFile,sr)==0)
{
if(FileDateToDateTime(sr.Time)<Date())
{
RenameFile("C:\\Delete files\\1\\"+sr.Name,"[COLOR="Red"]c:\\RECYCLER\\"+sr.Name[/COLOR]);
}
while(FindNext(sr)==0)
if(FileDateToDateTime(sr.Time)<Date())
{
RenameFile("C:\\Delete files\\1\\"+sr.Name[COLOR="Red"],"c:\\RECYCLER\\"+sr.Name[/COLOR]);
}
}
FindClose(sr);
}
Удаление файлов в корзину
Прога должна удалять все файлы дата создания которых соответствует определённому интервалу времени из каталога "1" в корзину.
Вопрос: Какой адрес у корзины? Я указывал "c:\\RECYCLER\\" , не получилось. Потом указывал "c:\\RECYCLER\\S-005-...........". В этом случае в этих подпапках с именами S-005-...... эти удалённые файлы появляются, но корзина на рабочем столе не наполняется.
Делаю так
Вопрос: Какой адрес у корзины? Я указывал "c:\\RECYCLER\\" , не получилось. Потом указывал "c:\\RECYCLER\\S-005-...........". В этом случае в этих подпапках с именами S-005-...... эти удалённые файлы появляются, но корзина на рабочем столе не наполняется.
Делаю так
Код:
Вместо RenameFile используй SHFileOperation (не забудь указать флаг FOF_ALLOWUNDO)
