[Евгений_Темный@fb]

Код:

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

[sv_ua]

Огомное спасибо Евгений_Темный@fb, скрипт кажется работает, буду тестировать на рабочей системе!