"C:\Program Files\WinRAR\Rar.exe" a -agdd.MM.yyyy msh231-.zip L:\1C_BackUpBases\VolgaDrive\MSH231\1Cv8.1CD

'====================================
'  del old files
'====================================

'Очистка ежедневных архивов старше 12 дней

TargetFolder1 = "L:\1C_BackUpBases\VolgaDrive\GK6"
TargetFolder2 = "L:\1C_BackUpBases\VolgaDrive\MSH231"
TargetFolder3 = "L:\1C_BackUpBases\VolgaDrive\MSH141"

Const OverWriteFiles = True
ControlDate1 = Date-12
ControlDate2 = Date-12
ControlDate3 = Date-12

'====================================

On Error Resume Next

Set objFSO = CreateObject("Scripting.FileSystemObject")

For Each objFile In objFSO.GetFolder(TargetFolder1).Files
    If objFile.DateLastModified < ControlDate1 Then
        objFSO.DeleteFile objFile.Path
    End If
Next

For Each objFile In objFSO.GetFolder(TargetFolder2).Files
    If objFile.DateLastModified < ControlDate2 Then
        objFSO.DeleteFile objFile.Path
    End If
Next

For Each objFile In objFSO.GetFolder(TargetFolder3).Files
    If objFile.DateLastModified < ControlDate3 Then
        objFSO.DeleteFile objFile.Path
    End If
Next

Set objFSO = Nothing