Vbscript 如何从具有指定扩展名的文件夹中删除x天以前的文件

这是我的VBS代码，它从给定日期的旧文件文件夹中删除所有.exe或任何其他给定扩展名文件

但它要求在删除每个文件之前进行确认，然后我必须单击OK手动确认。我需要禁用该确认，以便脚本在我单击后删除所有指定的扩展文件，而不需要任何确认

选项显式
Dim strExtensionsToDelete，strFolder
Dim objFSO，最大年龄，包括子文件夹
'要删除文件的文件夹
strFolder=“C:\Users\Public\Downloads”
'是否从子文件夹中删除文件？
includeSubfolders=True
'以逗号分隔的文件扩展名列表
'将删除以下列表中提供扩展名的文件
strExtensionsToDelete=“exe，.exe”
'最大文件期限（以天为单位）。早于此的文件将被删除。
最大年龄=5
设置objFSO=CreateObject（“Scripting.FileSystemObject”）
删除文件strFolder、strExtensionsToDelete、maxAge、includeSubFolders
子删除文件（ByVal strDirectory、ByVal strExtensionsToDelete、ByVal maxAge、includeSubFolders）
Dim objFolder、objSubFolder、objFile
昏暗的街道
设置objFolder=objFSO.GetFolder（strDirectory）
对于objFolder.Files中的每个objFile
对于拆分中的每个strExt（UCase（strExtensionsToDelete），“，”）
如果右（UCase（objFile.Path），Len（strExt）+1）=“”&strExt则
如果objFile.DateLastModified<（现在-最大年龄），则
WScript.Echo“删除：”&objFile.Path&“|”&objFile.DateLastModified
objFile.Delete
退出
如果结束
如果结束
下一个
下一个
如果includeSubFolders=True，则为“递归删除”
对于objFolder.SubFolders中的每个objSubFolder
DeleteFiles objSubFolder.Path，strExtensionsToDelete，maxAge，includeSubFolders
下一个
如果结束
端接头

删除

WScript.Echo

行，或者只使用

cscript.exe

而不是

WScript.exe

运行脚本。删除了所有以“WScript.Echo”开头的行，它工作得很好，谢谢！删除

WScript.Echo

行，或者只使用

cscript.exe

而不是

WScript.exe

运行脚本。删除所有以“WScript.Echo”开头的行，它工作正常，谢谢！