Новости
Видео
Microsoft
Windows 10
Железо
Программы
Форум

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

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

Ответить
Настройки темы
VBS/WSH/JS - Дополнение к скрипту

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


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

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

Здравствуйте, имеется хороший динамический скрипт с HAbra , хотелось бы добавить еще пару штрихов.
1)Каким образом можно добавить Время к имени архива, в данном скрипте добавляется только дата:
ZipFile = OutputFolder & Date & "_wwroot_backup.zip" ' Как назвать ====================|]
Пробовал дописывать с "& Time" и различными вариациями, а также с помощью определения переменной Time, ничего не помогло... время упорно не хочет отображаться в имени архива.
----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
2) При создании архива штатным архиватором Windows вылазит ошибка "Windows не удалось добавить один или несколько пустых каталогов в сжатую папку" Каким образом
есть возможность обойти и скрыть данную ошибку? Люди пишут , что это баг Windows архиватора. "On error resume next" ситуацию не спасает. Либо как я понимаю использовать для архивирования 7zip либо Winrar? (хотелось бы унифицировать без доп.по штатными средствами). Заранее спасибо за помощь
----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------


'================= Комментировать блок если вариант с аргументами =============|
InputFolder = "c:\inetpub\wwwroot" ' Какую папку архивировать ==========================|
OutputFolder = "l:\Backup\" ' Путь куда архивировать ===========================|
ZipFile = OutputFolder & Date & "_wwroot_backup.zip" ' Как назвать ====================|
Life = "-10" ' Срок жизни файлов в папке архивирования =======================|
'==============================================================================|

CreateObject("Scripting.FileSystemObject").CreateTextFile(ZipFile, True).Write "PK" & Chr(5) & Chr(6) & String(18, vbNullChar)
Set objShell = CreateObject("Shell.Application")
Set source = objShell.NameSpace(InputFolder).Items
objShell.NameSpace(ZipFile).CopyHere(source)

Do Until objShell.NameSpace(ZipFile).Items.Count = objShell.NameSpace(InputFolder).Items.Count
WScript.Sleep 500 ' Arbitrary polling delay
Loop

'Удаление в папке всех файлов старше Life дней.
Set FSO = CreateObject("Scripting.FileSystemObject")
'Выставляем количество дней, старше которых будет производится удаление файлов.
OldDate = DateAdd("d", Life , date)
'Указываем директорию в которой удаляем старые файлы.
Set Folder = FSO.GetFolder(OutputFolder)
Set FC = Folder.Files
For Each F1 in FC
If F1.DateLastModified < OldDate Then
F1.Delete
End If
Next

Отправлено: 10:47, 21-05-2014

 

Ветеран


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

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

Цитата DMBS:
Пробовал дописывать с "& Time" и различными вариациями »
Разделитель у компонент времени — двоеточие? Замените его на разрешённый символ, например:
Код: Выделить весь код
… & Replace(Time(), ":", "-") &
Цитата DMBS:
Либо как я понимаю использовать для архивирования 7zip либо Winrar? (хотелось бы унифицировать без доп.по штатными средствами). »
Либо. Унифицировать — значит установить 7-zip посредством групповой политики.
Это сообщение посчитали полезным следующие участники:

Отправлено: 15:25, 21-05-2014 | #2



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

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


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


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

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

Сделал вот так:


ZipFile = OutputFolder & Year(Date) & "-" & Month(Date) & "-" & Day(date) & " " & Hour(Time) & "-" & Minute(time) & "-" & Second(time) & "_wwroot_backup.zip" '|[/b]


Формат вывода Даты и времени стал такой: 2014-5-22 10-39-50_wwroot_backup.zip

Как от ошибки архивирования избавиться не совсем понял.. Нужно переименовать папку без символа "_" ?

Отправлено: 10:48, 22-05-2014 | #3


Ветеран


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

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

Речь была про двоеточие:
Цитата:
Q: Какие символы нельзя использовать в имени файла?

A: В имени файла нельзя использовать любой из следующих символов:
Код: Выделить весь код
\ / ? : * " > < |
Имена и расширения имен файлов: вопросы и ответы - Справка Microsoft Windows. Или более канонично: Naming Files, Paths, and Namespaces (Windows): Naming Conventions.

Цитата DMBS:
Как от ошибки архивирования избавиться »
Я же написал — использовать 7-Zip.

Отправлено: 01:41, 23-05-2014 | #4



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

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

Похожие темы
Название темы Автор Информация о форуме Ответов Последнее сообщение
Добавить прогресс бар к скрипту support23 AutoIt 1 25-11-2012 06:53
Вопросы по скрипту Lightbox maasja Вебмастеру 14 04-02-2011 12:39
Отправка формы скрипту Guest Вебмастеру 8 19-10-2004 15:40
Отправка формы скрипту Guest Программирование и базы данных 1 21-09-2004 10:03
дополнение к Nero Trojn Хочу все знать 2 01-04-2003 15:17


« Предыдущая тема | Следующая тема »


 
Переход