[решено] удаление старых файлов по маске

sunnykey · Отправлено: **08:41, 03-06-2013** | #2

Добавь переменную

Код:

strMask= Wscript.arguments.Item(2)

И измени условие

Код:

For Each oI In cF
		If (DateDiff("d", oI.DateLastModified, Now) > iDays) and (objFSO.GetExtensionName(oI)=strMask) Then
			WScript.Echo oI.Path
			oI.Attributes = 0
			oI.Delete
		End If
	Next

теперь можешь запускать

Код:

call cscript//Nologo "%~dp0Clean.vbs" 30 "C:\Download" exe

З.Ы. Во втором условии WScript.Echo oI.Path считаю лишним (дублирует вывод первого условия)