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

Показать сообщение отдельно

Старожил


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

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


вопрос решен

On Error Resume Next
Set WshShell = CreateObject("WScript.Shell")
Set objShellApp = CreateObject("Shell.Application")

katalog = ""
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

commanda = "C:\Progra~1\7-Zip\7z.exe a -tzip \\Dc2-db\copy_vipnet\%COMPUTERNAME%\" & katalog & ".zip -ssw ""C:\Program Files\InfoTeCS\"""
WshShell.Run commanda, 1, 1

Отправлено: 09:50, 07-06-2013 | #21