Set WshShell = Wscript.CreateObject("Wscript.Shell") Set fso = CreateObject("Scripting.FileSystemObject") answ=true If (fso.FileExists(FNameArcD)) Then Set f = fso.GetFile(FNameArcD) diff = DateDiff("n",f.DateLastModified,Now) If diff<=Interval Then Reply = WshShell.Popup("Со времени последней архивации каталога "&FName&" прошло "&diff&" мин."&vbCrLf&"Архивировать еще раз",_ 5,"Архивация",vbYesNo+vbInformation+vbDefaultButton2) If Reply=vbYes Then fso.DeleteFile(FNameArcD) Else answ=false End If End If End If If answ=true Then cd=WshShell.Run("winrar a -dh -ibck "&FNameArcD&" "&DataFolder,,True) While cd>0 'Почекаємо закінчення вигрузки Wend If (fso.FileExists(FNameArcD)) Then Set f = fso.GetFile(FNameArcD) f.Copy(ArcFolder&"\"&FName&".rar") Else MsgBox("Вивантаження не відбулося!") End If End If
