VBS/WSH/JS - [решено] ArchName сделать формата "гггг.мм.дд"

Внимание, важное сообщение: Дорогие Друзья!
В ноябре далекого 2001 года мы решили создать сайт и форум, которые смогут помочь как начинающим, так и продвинутым пользователям разобраться в операционных системах. В 2004-2006г наш проект был одним из самых крупных ИТ ресурсов в рунете, на пике нас посещало более 300 000 человек в день! Наша документация по службам Windows и автоматической установке помогла огромному количеству пользователей и сисадминов. Мы с уверенностью можем сказать, что внесли большой вклад в развитие ИТ сообщества рунета.

Но... время меняются, приоритеты тоже. И, к сожалению, пришло время сказать До встречи! После долгих дискуссий было принято решение закрыть наш проект. 1 августа форум переводится в режим Только чтение, а в начале сентября мы переведем рубильник в положение Выключен

Огромное спасибо за эти 24 года, это было незабываемое приключение. Сказать спасибо и поделиться своей историей можно в данной теме.

С уважением, ваш призрачный админ, BigMac...

| Правила

Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Программирование и базы данных » VBS/WSH/JS - [решено] ArchName сделать формата "гггг.мм.дд"

Настройки темы

VBS/WSH/JS - [решено] ArchName сделать формата "гггг.мм.дд"

ipvinner

Пользователь

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

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

Доброго времени суток. Есть такой скрипт для создания резервной копии базы. В программировании не силен. Помогите допилить, чтобы имя файлика с бекапом было в формате гггг.мм.дд.dt
Date дает мм.дд.гггг. Вот скрипт
Set WshShell = WScript.CreateObject("WScript.Shell")
Set FSO = CreateObject("Scripting.FileSystemObject")
Set TextStreamL = FSO.CreateTextFile("D:\BackUpbaza\lostarch.txt")
ArchName = "D:\BackUpbaza\!!Main\BackUp_" + Replace(Date, "/","") + "_" + Replace(Time, ":","") + ".dt"
ArchName = Replace(ArchName," ","")
TextStreamL.Write(ArchName)
TextStreamL.Close
WshShell.run("C:\PROGRA~2\1cv82\8.2.13.205\bin\1cv8.exe config /UCКодРазрешения /Slocalhost\1cv82 /DumpIB" + ArchName)

Отправлено: 16:04, 25-11-2011

Iska

Ветеран

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

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

Код:

dtNow = Now()

ArchName = "D:\BackUpbaza\!!Main\BackUp_" & _
	Right("0000" & CStr(Year(dtNow)),  4) & "." & _
	Right("00"   & CStr(Month(dtNow)), 2) & "." & _
	Right("00"   & CStr(Day(dtNow)),   2) & ".dt"

WScript.Echo ArchName

Результат

Это сообщение посчитали полезным следующие участники:

Delirium, ipvinner, neo21

Отправлено: 17:56, 25-11-2011 | #2