[Iska]

Код:

Option Explicit

Dim strFolder

Dim objFSO
Dim objWshShell

Dim objSubFolder


strFolder = "C:\1"

Set objFSO      = WScript.CreateObject("Scripting.FileSystemObject")
Set objWshShell = WScript.CreateObject("WScript.Shell")

If objFSO.FolderExists(strFolder) Then
	For Each objSubFolder In objFSO.GetFolder(strFolder).SubFolders
		If DateDiff("d", objSubFolder.DateLastModified, Now()) > 30 Then
			WScript.Echo objSubFolder.Path
			
			objWshShell.Run """%ProgramFiles%\WinRAR\WinRAR.exe"" a ""c:\Archive.rar"" " & objSubFolder.Path, 1, True
		End If
	Next
Else
	WScript.Echo "Folder [" & strFolder & "] not found."
End If

Set objWshShell = Nothing
Set objFSO      = Nothing

WScript.Quit 0

[Z 666 VAD]

Супер большое спасибо
Но
я сделал вот так

' Исходные данные
' ------------------------------------------------------------------------
DirRab = "c:\1\"
DirArc = "c:\1\"

NDaysDele = 30

Arc = """C:\Program Files (x86)\WinRAR\winrar.exe""" ' У меня винда 7 и здесь лежит архиватор !!!
' ------------------------------------------------------------------------

MDate = CStr(DateAdd("d",-NDaysDele,Date))

Set WS = CreateObject("WScript.Shell")
DateArc=Mid(MDate,7,4)+Mid(MDate,4,2)+Mid(MDate,1,2)

R = WS.Run(Arc+" a -r -df -tb"+DateArc+"0001 """+DirArc+DateArc+""" """+DirRab+"*.*""", 1, True)

Мне нужно разжувать последнии команды
Плиз скажите что они озночают

MDate = CStr(DateAdd("d",-NDaysDele,Date)) - Данная команда сравнивает все файли с текушей даты компа ))) ????

DateArc=Mid(MDate,7,4)+Mid(MDate,4,2)+Mid(MDate,1,2) - здесь кажется задается переменная для рассчета количества дней файла Или же здесь задается формула высчета количество дней файлов ???? Из курса скрипта

R = WS.Run(Arc+" a -r -df -tb"+DateArc+"0001 """+DirArc+DateArc+""" """+DirRab+"*.*""", 1, True) - данная команда уже использует рар команды
"a" "r" "df" я понял
-tb - Зачем вот это команда Я же указал диапозон ?? NDaysDele = 30

Что это значит "+DateArc+"0001 """+DirArc+DateArc+""" """+DirRab+"*.*""", 1, True

Я правильно понимаю ???
+DateArc+"0001 данная команда ссылается на DateArc=Mid(MDate,7,4)+Mid(MDate,4,2)+Mid(MDate,1,2)
+DirArc+DateArc+ Он создает архив с датой создания файла виновника
Я хочу сделать чтобы создовался рар архив с произвольным именем ??? как сделать ??
+DirRab+"*.* здесь прописан путь от куда архивировать и задан диапозон файлов ???

[Iska]

я сделал вот так »

Мне нужно разжувать последнии команды Плиз скажите что они озночают »

Если «я сделал» — то как понять «последнии команды … скажите что они озночают»?!

P.S. Используйте тэг [code] для оформления кода на форуме. В мешанине из текста и кода с «+» и «-» понять что-то сложно.

[Z 666 VAD]

Теперь у меня другое задание
Все сделать тоже самое только на WIN 2008 enterprise server с использованием родного архиватора
Гугл уже не помогает ((((((

[Iska]

Z 666 VAD, какой архиватор подразумевается под «родным»?

[Z 666 VAD]

встроенный архиватор ZIP

[Iska]

Z 666 VAD, тут Google не поможет. Встроенный архиватор, как Вы его зовёте, не работает с архивами *.rar.

[Z 666 VAD]

Да я понял что мой скрипт не подойдет из за команд ВинРара
Теперь ишу скрипт который отработает с родным архиватором
написать я его никак не смогу
нужна помошь

Да я понял
Потому что в моем батнике используется команды ВинРара

Теперь нужно написать скрипт который использует встроенный архиватор 2008 винды
Нужна помощь
Как это можно реализовать
Где найти хотя бы похожий скрипт

[Iska]

Z 666 VAD, вот этот скрипт: WSH: архивация файлов средствами операционной системы (WinXP) — Windows Script Host, HTA (VBScript, JScript) — Серый форум.

Попробуйте так:

читать дальше »

Код:

Option Explicit

Dim strFolder
Dim strZIPFile

Dim objShell
Dim objFolder

Dim objFSO

Dim objSubFolder
Dim lngSubFoldersCount


strFolder  = "C:\1"
strZIPFile = "C:\Archive.zip"


Set objShell    = WScript.CreateObject("Shell.Application")
Set objFSO      = WScript.CreateObject("Scripting.FileSystemObject")

If objFSO.FolderExists(strFolder) Then
	If Not objFSO.FileExists(strZIPFile) Then
		With objFSO.CreateTextFile(strZIPFile)
			.Write "PK" & Chr(5) & Chr(6) & String(18, 0)
			.Close
		End With
	End If
	
	Set objFolder = objShell.NameSpace(strZIPFile)
	
	If Not objFolder Is Nothing Then
		lngSubFoldersCount = 0
		
		For Each objSubFolder In objFSO.GetFolder(strFolder).SubFolders
			If DateDiff("d", objSubFolder.DateLastModified, Now()) > 30 Then
				WScript.Echo objSubFolder.Path
				
				lngSubFoldersCount = lngSubFoldersCount + 1
				
				objFolder.CopyHere objSubFolder.Path
			End If
		Next
		
		Do
			WScript.Sleep 100
		Loop Until objFolder.Items.Count = lngSubFoldersCount
		
		Set objFolder = Nothing
	Else
		WScript.Echo "Can't access to ZIP file [" & strZIPFile & "]."
	End If
Else
	WScript.Echo "Folder [" & strFolder & "] not found."
End If

Set objFSO      = Nothing
Set objShell    = Nothing

WScript.Quit 0