Код:
disk = Array ("C:", "D:") ' перечисление дисков в скобках
search_dir = "_RecordVideo_" ' директория поиска
limit = 20 ' предельное кол-во свободного места на жестком диске в Гб
k = 30 ' кол-во дней
Set fso = CreateObject ("Scripting.FileSystemObject")
logfile = Left(WScript.ScriptName, Len(WScript.ScriptName) - 4)
Set logfile = fso.OpenTextFile(logfile & ".log", 8, True)
For i = 0 To UBound(disk)
fs = fso.GetDrive(disk(i)).FreeSpace / (1024 * 1024 * 1024)
If fs < limit Then
Set fold = fso.GetFolder(disk(i) & "\" & search_dir)
For Each subfold In fold.SubFolders
data_cr = subfold.DateCreated
data_fold = Right(subfold.Name, 2) & "." & Mid(subfold.Name, 3, 2) & "." & Left(subfold.Name, 2)
d1 = DateDiff("d", data_cr, Date())
d2 = DateDiff("d", data_fold, Date())
If d1 > k Or d2 > k Then
logfile.WriteLine Now() & " Директория " & subfold.Path & " удалена"
subfold.Delete
End If
Next
End If
Next
