Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  | Правила  

Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Скриптовые языки администрирования Windows » VBS/WSH/JS - Помогите пожалуйста. Скрипт Удаления файлов старше 60 дней, исключая файлы по маске

Ответить
Настройки темы
VBS/WSH/JS - Помогите пожалуйста. Скрипт Удаления файлов старше 60 дней, исключая файлы по маске

Новый участник


Сообщения: 6
Благодарности: 0

Профиль | Отправить PM | Цитировать


Изменения
Автор: KitsuNeko
Дата: 28-08-2012
Может сможете помочь, есть скрипт это чудо удаляет все файлы в указаной папке старше 60 дней, можно ли задать ему маску исключений, что бы он не трогал к примеру файлы число создания или изменения которых было бы к примеру 10 и 20 числа любого месяца. Либо по маске имени файла ks_backup_*_*_10_*_*.fbk и ks_backup_*_*_20_*_*.fbk к примеру..
задача скрипта"проряжать" бакапы SQL сервера.

PHP код: Выделить весь код

path "\\Server\Temp"

killdate date() - 60

arFiles 
= Array()
set fso createobject("scripting.filesystemobject")

SelectFiles pathkilldatearFilestrue

nDeleted 
0
for 0 to ubound(arFiles)
  
on error resume next
  arFiles
(n).delete true
  
if err.number <> 0 then
    wscript
.echo "Unable to delete: " arFiles(n).path
  
else
    
nDeleted nDeleted 1
  end 
if
  
on error goto 0
next



sub SelectFiles
(sPath,vKillDate,arFilesToKill,bIncludeSubFolders)
  
on error resume next
  set folder 
fso.getfolder(sPath)
  
set files folder.files

  
for each file in files
    dtlastmodified 
null
    on error resume Next
    dtlastmodified 
file.datelastmodified
    on error goto 0
    
if not isnull(dtlastmodifiedThen
      
if dtlastmodified vKillDate then
        count 
ubound(arFilesToKill) + 1
        redim preserve arFilesToKill
(count)
        
set arFilesToKill(count) = file
      end 
if
    
end if
  
next

  
if bIncludeSubFolders then
    
for each fldr in folder.subfolders
      SelectFiles fldr
.path,vKillDate,arFilesToKill,true
    next
  end 
if
end sub 


Отправлено: 21:59, 27-08-2012

 

Старожил


Сообщения: 280
Благодарности: 72

Профиль | Отправить PM | Цитировать


Тоже самое делаю на PS
Файлы имеют название yyyy_mm_dd
Код: Выделить весь код
$mounth = (Get-Date).AddMonths(-2)
Get-ChildItem "D:\Backup\" -Recurse | Where-Object { $_.name -notmatch "2012_.._01" -and $_.name -notmatch "2012_.._10" -and $_.CreationTime -lt $mounth }| Remove-Item -Recurse
Это сообщение посчитали полезным следующие участники:

Отправлено: 14:28, 28-08-2012 | #2



Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети.

Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля.


Новый участник


Сообщения: 6
Благодарности: 0

Профиль | Отправить PM | Цитировать


Цитата Molchune:
оже самое делаю на PS
Файлы имеют название yyyy_mm_dd
Код:
$mounth = (Get-Date).AddMonths(-2)
Get-ChildItem "D:\Backup\" -Recurse | Where-Object { $_.name -notmatch "2012_.._01" -and $_.name -notmatch "2012_.._10" -and $_.CreationTime -lt $mounth }| Remove-Item -Recurse »
Мне б на VBS допаять((

а что за PS?
"2012_.._01" я правильно понял, что это маска исключения?

Отправлено: 15:14, 28-08-2012 | #3


Новый участник


Сообщения: 6
Благодарности: 0

Профиль | Отправить PM | Цитировать


Спасибо PowerShell отрабатывает, пришлось правда покопаться с запуском самого скрипта, задача решилась)

Но тем не менее вопрос по VBS остался открытым

Отправлено: 13:55, 29-08-2012 | #4



Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Скриптовые языки администрирования Windows » VBS/WSH/JS - Помогите пожалуйста. Скрипт Удаления файлов старше 60 дней, исключая файлы по маске

Участник сейчас на форуме Участник сейчас на форуме Участник вне форума Участник вне форума Автор темы Автор темы Шапка темы Сообщение прикреплено

Похожие темы
Название темы Автор Информация о форуме Ответов Последнее сообщение
CMD/BAT - [решено] Нужно удалить лог файлы старше 30 дней ksv_sergo Скриптовые языки администрирования Windows 14 24-03-2016 15:02
VBS/WSH/JS - [решено] Удаление файлов по сети старше 7 дней, оставлять не менее 10 файлов white155 Скриптовые языки администрирования Windows 6 04-01-2012 00:42
[решено] Автоочистка файлов, старше 5 дней. Universal_gr Программное обеспечение Linux и FreeBSD 1 01-10-2010 01:12
Прочее - удаление файлов старше 10 дней admin666 Общий по Linux 1 23-07-2009 19:09




 
Переход