[Iska]

Замечательно!

Теперь убираем второй «On Error Resume Next» из функции, добавляем требование обязательного предварительного объявления переменных «Option Explicit», добавляем объявления переменных, меняем «objFolder» на «oI», расставляем отступы для удобства чтения:

читать дальше »

Код:

Option Explicit

Dim intDays
Dim strFldr
Dim objFSO

intDays = Int(Wscript.arguments.Item(0))
strFldr = Wscript.arguments.Item(1)

Set objFSO = CreateObject("Scripting.FileSystemObject")

DelOld strFldr, intDays

Function DelOld(sFldr, iDays)
	Dim oD, cF, cD, oI
	
	Set oD = objFSO.GetFolder(sFldr)
	Set cF = oD.Files
	Set cD = oD.SubFolders
	
	For Each oI In cF
		If DateDiff("d", oI.DateCreated, Now) > iDays Then
			WScript.Echo oI.Path
			oI.Attributes = 0
			oI.Delete
		End If
	Next
	
	For Each oI In cD
		Select Case oI.Name
			Case "Сканер", "Сертификаты"
			Case Else
				DelOld oI.Path, iDays
				
				If oI.Size = 0 Then
					oI.Delete
				End If
		End Select
	Next
End Function

и снова пробуем.