Добро пожаловать в форум, Guest  >>   Войти | Регистрация | Поиск | Правила | В избранное | Подписаться
Все форумы / Windows Новый топик    Ответить
 Не силен я в скриптах...  [new]
Cerebrum
Member

Откуда: Омикрон Персей 8
Сообщений: 7980
А прогу писать для такого пустяка, IMHO, не имеет смысла, может подскажет как
написать скрипт, который бы проверял файлы в папке (скажем D:\files) и те из них, которые старше 2 недель удалял. Спасибо!
--------------------------------------------------------------
Don't worry - wear Huggies
17 май 06, 12:01    [2673367]     Ответить | Цитировать Сообщить модератору
 Re: Не силен я в скриптах...  [new]
--null--
Guest
Типа того. Тока проверьте тщательно, что не покилять того чего не надо :-)

set fso=Wscript.CreateObject("Scripting.FileSystemObject")

dir="c:\tmp\mydir"
set f = fso.GetFolder(dir)
Set fc = f.Files
For Each f1 in fc
 d= f1.DateCreated
 diff=DateDiff("d",d,Now)
 if diff>14 Then
  WScript.Echo "DELETE! " & f1.name
  fso.DeleteFile(dir & "\" & f1.name)
 end if
Next
17 май 06, 12:47    [2673782]     Ответить | Цитировать Сообщить модератору
 Re: Не силен я в скриптах...  [new]
Cerebrum
Member

Откуда: Омикрон Персей 8
Сообщений: 7980
ОГРОМНОЕ СПАСИБО

--------------------------------------------------------------
Don't worry - wear Huggies
17 май 06, 12:52    [2673818]     Ответить | Цитировать Сообщить модератору
 Re: Не силен я в скриптах...  [new]
Cerebrum
Member

Откуда: Омикрон Персей 8
Сообщений: 7980
ЁКЛМН, на XP все пучком, а Win2000Server, выдал такую хрень
--------------------------------------------------------------
Don't worry - wear Huggies

К сообщению приложен файл. Размер - 0Kb
17 май 06, 13:45    [2674196]     Ответить | Цитировать Сообщить модератору
 Re: Не силен я в скриптах...  [new]
--null--
Guest
- какой WSH (cscript - и см версию)
- простой выход - скачать с M$ последний WSH и проапдейтицца!
- возможно соответсвующий WSH прходит с windows сервиспаком.

у меня на Win2000 работает. Сервиспак какой?
17 май 06, 14:56    [2674651]     Ответить | Цитировать Сообщить модератору
 Re: Не силен я в скриптах...  [new]
Cerebrum
Member

Откуда: Омикрон Персей 8
Сообщений: 7980
--null--
- какой WSH (cscript - и см версию)
- простой выход - скачать с M$ последний WSH и проапдейтицца!
- возможно соответсвующий WSH прходит с windows сервиспаком.

у меня на Win2000 работает. Сервиспак какой?

Сервис пак 4, сейчас поставил WScript 5.6, но перезагрузку смогу только вечером - народ работает.
Т.Е. это из-за старой версии WScript'a?
17 май 06, 14:59    [2674669]     Ответить | Цитировать Сообщить модератору
 Re: Не силен я в скриптах...  [new]
--null--
Guest
предполагаю что да.
Вообще сей объект живет в файле Scrrun.dll (кстати посмотрите есть ли он и отличается ли)
можно конечно попробовать просто его перенести и сделать regsvr32,
но лучше идти документированными путями, ибо все-таки сервер.
17 май 06, 15:01    [2674675]     Ответить | Цитировать Сообщить модератору
 Re: Не силен я в скриптах...  [new]
--null--
Guest
че-т не помню кстати нужна ли перезагрузка после обновления WSH.
Может и так заработает :-)
17 май 06, 15:02    [2674692]     Ответить | Цитировать Сообщить модератору
 Re: Не силен я в скриптах...  [new]
Cerebrum
Member

Откуда: Омикрон Персей 8
Сообщений: 7980
--null--
предполагаю что да.
Вообще сей объект живет в файле Scrrun.dll (кстати посмотрите есть ли он и отличается ли)
можно конечно попробовать просто его перенести и сделать regsvr32,
но лучше идти документированными путями, ибо все-таки сервер.

Попробую лучше вечером перезагрузить, а потом если, что перенести и зарегить руками, спасибо за помощь.
17 май 06, 15:03    [2674694]     Ответить | Цитировать Сообщить модератору
 Re: Не силен я в скриптах...  [new]
Cerebrum
Member

Откуда: Омикрон Персей 8
Сообщений: 7980
--null--
че-т не помню кстати нужна ли перезагрузка после обновления WSH.
Может и так заработает :-)

у меня запросил
17 май 06, 15:06    [2674703]     Ответить | Цитировать Сообщить модератору
 Re: Не силен я в скриптах...  [new]
Cerebrum
Member

Откуда: Омикрон Персей 8
Сообщений: 7980
Перезагрузил - ВСЕ ОК.
СПАСИБО!
--------------------------------------------------------------
Don't worry - wear Huggies
18 май 06, 08:10    [2677093]     Ответить | Цитировать Сообщить модератору
Все форумы / Windows Ответить