[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