Новости
Видео
Microsoft
Windows 10
Железо
Программы
Форум
Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  

Название темы: [решено] что бы с каждого компа в сети архивировалась раз в 2-3 дня папочка на сервер
Показать сообщение отдельно

Ветеран


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

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

Цитата:
Код: Выделить весь код
if len (Month(Now))= 1 then katalog = katalog & "0" & Month(Now)
if len (Month(Now))= 2 then katalog = katalog & Month(Now)
if len (Day(Now))=1 then katalog = katalog & "0" & Day(Now)
if len (Day(Now))=2 then katalog = katalog & Day(Now)
katalog = Year(Now) & katalog
Можно проще:
Код: Выделить весь код
dtNow = Now()

WScript.Echo CStr(Year(dtNow)) & Right("00" & CStr(Month(dtNow)), 2) & Right("00" & CStr(Day(dtNow)), 2)

Отправлено: 11:02, 07-06-2013 | #22

Название темы: [решено] что бы с каждого компа в сети архивировалась раз в 2-3 дня папочка на сервер