Батник для очистки по дате
Добрый вечер. Есть папка в которой очень быстро скапливается большое количество файлов. Задача батника чтобы он один раз в день удалял файлы которым больше недели от роду. Помогите пожалуйста.
|
3DpacTe, Вам надо определиться, какая из двух дат — дата создания или дата последней модификации — подразумевается в Вашем понимании.
|
Iska, Это будет дата создания
|
Цитата:
Цитата 3DpacTe
Это будет дата создания »
|
Так, тогда Вам forfiles не подойдёт.
На WSH:
Код:
Option Explicit
Dim strSourceFolder
Dim objFile
strSourceFolder = "E:\Песочница\0399"
With WScript.CreateObject("Scripting.FileSystemObject")
If .FolderExists(strSourceFolder) Then
For Each objFile In .GetFolder(strSourceFolder).Files
If DateDiff("d", objFile.DateCreated, Now()) > 7 Then
If objFile.Path <> WScript.ScriptFullName Then
objFile.Delete True
End If
End If
Next
Else
WScript.Echo "Can't find source folder [" & strSourceFolder & "]."
WScript.Quit 1
End If
End With
WScript.Quit 0
|
Извиняюсь, я чайник. Что с этим кодом теперь делать?
|
Сохраните в файл с расширением «.vbs», указав вместо «E:\Песочница\0399» путь к Вашей папке. Запустите на исполнение двойным щелчком. Если скрипт отработает корректно — создайте задание на его запуск, указав в параметрах ежедневное исполнение.
|
Всё сработало, спасибо большое.
Цитата:
Цитата Iska
создайте задание на его запуск, указав в параметрах ежедневное исполнение. »
|
А как это сделать?
И еще такой вопрос на будущее, как будет выглядеть код если нужно чтобы он работал на дату последнего изменения? |
Всем большое спасибо, но этот
Цитата:
Цитата 3DpacTe
И еще такой вопрос на будущее, как будет выглядеть код если нужно чтобы он работал на дату последнего изменения? »
|
вопрос еще актуален. |
Цитата:
Цитата 3DpacTe
И еще такой вопрос на будущее, как будет выглядеть код если нужно чтобы он работал на дату последнего изменения? »
|
3DpacTe, приношу Вам свои извинения, запамятовал. А когда вспомнил — свет отрубился :(.
Достаточно будет заменить свойство «.DateCreated» на свойство «.DateLastModified». |
Спасибо, запустил, всё работает. Можно закрывать. Всем благодарности! :)
|
Iska,
Извините конечно, что влезаю в чужую тему, а не могли бы еще подправить скриптик что бы он удалял не только файлы, но и все папки внутри заданной?
|
Gor303, сформулируйте полностью своё техзадание.
|
Iska, Мне нужно то же что и 3DpacTe, только вот скрипт удаляет только файлы внутри заданной папки, а у меня еще лежат там папки с файлами которые мне тоже надо удалять. Я попробовал, скрипт к сожалению удаляет только файлы - папки с файлами не трогает.
|
Gor303, а что делать, если папка старше семи дней по дате создания, а в ней находятся файлы моложе семи дней по дате создания?
|
Именно. Или ещё и так:
Скрытый текст
Код:
\─Старая папка
└──Ещё одна старая папка
└──И ещё одна старая папка
└──А тут новая
Цитата:
Цитата Gor303
папки с файлами не трогает »
|
Подозреваю, что Вам нужен несколько иной скрипт — очистки папки типа «Для обмена», по принципу: раз в день удаляем файлы, созданные/модифицированные ранее даты, отстоящей от текущей на N дней, удаляем пустые папки (т.е., папка будет удалена, как только в ней не окажется файлов и вложенных папок). |
Georgio, Я даже и не подумал об этом :) Но мне это не требуется. Iska, правильно подметил
Цитата:
Цитата Iska
Подозреваю, что Вам нужен несколько иной скрипт — очистки папки типа «Для обмена», по принципу: раз в день удаляем файлы, созданные/модифицированные ранее даты, отстоящей от текущей на N дней »
|
Но удалять надо и папки и файлы, с
Цитата:
а что делать, если папка старше семи дней по дате создания, а в ней находятся файлы моложе семи дней по дате создания?
|
- удалять!
|
Ребята извините, что потревожил. Решил сделать проще. Удаление всех файлов и папок, не смотря на дату создания или изменения, ну и засунул в планировщик. Этого мне вполне хватит.
Код простой: cd /d D:\RAW && rmdir /s /q .
Откликнувшемся - большое спасибо! :)
|
Время: 00:25.
© OSzone.net 2001-
