[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