Set WshShell = Wscript.CreateObject("Wscript.Shell") Set fso = CreateObject("Scripting.FileSystemObject") Do fnd=InStr(Path,";") If fnd=0 Then CurFolder=Path Else CurFolder=Mid(Path,1,fnd-1) Path=Mid(Path,fnd+1) End If Arhiv(CurFolder) Loop Until fnd=0
Sub Arhiv(DataFolder) FName = Mid(DataFolder,InStrRev(DataFolder,"\")+1) FNameArc = ArcFolder&"\"&FName&".rar" answ=true If (fso.FileExists(FNameArc)) Then Set f = fso.GetFile(FNameArc) diff = DateDiff("n",f.DateLastModified,Now) If diff<=Interval Then Reply = WshShell.Popup("Со времени последней архивации каталога "&FName&" прошло "&diff&" мин."&vbCrLf&"Архивировать еще раз",_ 10,"Архивация",vbYesNo+vbInformation+vbDefaultButton2) If Reply<>vbYes Then answ=false End If End If End If If answ=true Then DataFolder = Chr(34)+DataFolder+Chr(34) FNameArc = Chr(34)+FNameArc+Chr(34) WshShell.Run("winrar a -dh -ibck "&FNameArc&" "&DataFolder) End If End Sub