Скрипт удаления старых файлов в локальной сети

Имеется в локальной сети файлопомойка.
Хотелось бы поместить в шедулер скритп, который удалял бы все файлы, старше определенного возласта (исходя из даты создания файла)

Нашел такой скрипт:

Код:

'=========================================================
'
' DESC: Delete files in a directory older than the specified 
'	number of days
'
' USAGE: Call delFiles("SOURCE DIR", #DAYS)
'
'
' AUTHOR: Todd Woolums ([email protected])
' DATE : 05/29/2004
' VERSION: 1.0
'=========================================================


Dim strCurrentDate
Dim objFSO
Set objFSO = CreateObject("Scripting.FileSystemObject")
Call delFiles("\\server\share\archive", 30)
Set objFSO = Nothing


Sub delFiles(strFolderPath, intAge)

    Dim oFldr
    Dim oFile

    Set oFldr = objFSO.GetFolder(strFolderPath)
    For Each oFile in oFldr.Files
      if datediff("d", oFile.DateLastModified, Now ()) > intAge Then
        oFile.Delete
      End if
    Next
    Set oFldr = Nothing

End Sub

Работает.
Но если есть каталоги - скрипт их не видит.

Посоветуйте, что надо исправить (или может у кого есть готовый скрипт), чтобы удалялись файлы и внутри каталогов. Но каталоги оставались нетронутыми.

 

Почти то, что я хотел... (если всё делать вручную - в точности то, что я хотел)

Спасибо за идею, будет над чем в праздники подумать...

 

Итак, по итогам праздничных изысканий, прихожу ко мнению, что в нескольких строках в cmd-файле получить дату старше на несколько дней от сегодняшней - невозможно.

P.S. А скрипт AlexV не удаляет файлы, имена которых не соответствуют DOS-формату (длиннее 8 символов).

P.P.S. Пока получился скрипт, который сравнивает даты "образцового" файла и файла с файлопомойки. Если "образец" новее - сравниваемый файл удаляется. Но это тоже как-то "неаккуратненько" Ибо требует ручной модификации даты образцового файла.

 

Количество дней устаревания - некритично. Но не сегодняшнее. Пару суток на устаревание пользоваелям всё-таки надо оставить.

Критично (то есть идеал) - чтобы закинуть cmd (или vbs) файл в шедулер и забыть про него. Но в твоём варианте надо либо руками править YYYYMMDD, либо руками же запускать cmd с %1

А на ассемблере - наверняка БОЛЬШИХ денег.
Только зачем так извращаться при наличии альтернативных средств создания скриптов?

Я же написал - "прихожу ко мнению, что в нескольких строках в cmd-файле получить дату невозможно"
Мой cmd-скрипт, работающий с датами, но с умолчанием, что в месяце 30 дней (т.е. надо тестировать, как он поведёт себя в феврале) занимает 43 строки структурированного кода. И цель уже не оправдывает средства.

 

При помощи отказа от прямого удаления и использования метода копирования-удаления-переименования (а может я просто плохо читал описание команды del? ) удалось сократить скрипт вдвое.

Плюсы скрипта: можно задавать возраст "устаревания" файлов

Минусы: файлы удаляются исходя из допущения о 30 днях в любом месяце (можно, конечно, поправить, но, повторюсь, цель не оправдывает средства).

Получившийся код:

Код:

set link=C:\test
set p01=%DATE:~0,+5%
set p02=%p01:~-2%
set p03=%p02:~0,+1%
set p04=%p01:~-2%
set p05=%DATE:~0,+1%
set p06=%DATE:~0,+2%
if %p03% equ 0 set p04=%p04:~-1%
if %p05% equ 0 set p06=%p06:~-1%
set p07=%DATE:~-4%
set /A p08=%p06%-7
if %p08% LEQ 0 goto err1
set /A p06=%p08%
goto next
:err1
set /A p06=30+%p08%
set /A p04=%p04%-1
if %p04% LEQ 0 goto err2
goto next
:err2
set /A p04=12
set /A p07=%p07%-1
:next
xcopy %link%\*.* /y /s /h /i /D:%p04%-%p06%-%p07% %link%2\
rd /Q /S %link%\
move /Y %link%2 %link%

Критика и конструктивные предложения приветствуются

 

Не смотря на то, что поставленная задача решена, всё же пытаюсь что-то улучшить... И потому иногда проглядываю старые темы...

ForFiles.exe действительно хороша...

Вот только для моего случая команда, которую необходимо запустить
"CMD /C del @FILE"
не срабатывает, если в пути к @FILE есть пробелы...