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

[alexdomovoi]

вопрос решен

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

[Iska]

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)

[alexdomovoi]

можно только помощи так и не дождался

[Iska]

только помощи так и не дождался »
«Вы хотите поговорить об этом?» :lol: