请高手帮忙!写一个批处理!删除E盘下的TESS文件下_tismst_opc_文件中早于5天前的所有文件.

请高手帮忙!写一个批处理!删除E盘下的TESS文件下_tismst_opc_文件中早于5天前的所有文件.

我的思路是每天晚上执行这个脚本，通过判断文件夹和文件的创建时间和当前时间做比较，其值大于5就将文件删除，但是这个脚本有个问题

他会删除所有文件夹为111下的文件，请问如何才能让他只删除指定的目录的文件和文件夹？十分感谢

strComputer = "."

Set objWMIService = GetObject("winmgmts:" _

& "{impersonationLevel=impersonate}!\" & strComputer & "rootcimv2")

Set colFiles = objWMIService. _

ExecQuery("Select * from CIM_DataFile where Path = '\111\'")

For Each objFile in colFiles

Wscript.Echo objFile.Name

wscript.echo objfile.creationdate

Wscript.Echo DateDiff("d",left(left(objfile.creationdate,8),4)&"-"&mid(left(objfile.creationdate,8),5,2)&"-"&right(left(objfile.creationdate,8),2) ,date)

Next