option explicit 
dim fpath,fso,logfile,fwrite 
fpath=inputbox ("输入目标文件夹","文件处理器") 
logfile="logfile.txt" 
set fso=createobject("scripting.filesystemobject") 
Set fwrite=fso.opentextfile(logfile,8,true) 
getfilename fpath 
fwrite.close 
Set fso=Nothing 
MsgBox "命令执行完成！" 
function getfilename(path) 
dim file,folder,sfolder,fname,subfolder,Files 
if not fso.folderexists(path) then 
set fso=nothing 
msgbox "目标文件夹不存在！" 
exit function 
end if 
set folder=fso.getfolder(path) 
set files=folder.files 
for each file in Files 
fwrite.writeline path&""&file.name 
If file.DateLastModified < Now - 10 Then '判断是否超过10天 
fso.DeleteFile(file) 
'Wscript.Echo file 
End If 
next 
set subfolder=folder.subfolders 
for each sfolder in subfolder 
fwrite.writeline path&""&sfolder.name 
If sfolder.DateCreated < Now - 10 Then '判断是否超过10天 
fso.deletefolder(sfolder) 
'Wscript.Echo file 
End If 
next 
end function

将上面代码存为vbs文件即可使用。

VBScript 常用函数总结
下面是我总结的VBScript中常用的函数及其用法。1，GetROProperty说明：YouusetheGetROPropertymethodtoretrievethecurrentvalueofatestobjectpropertyfromarun-timeobjectinyourapplication.

利用WScript.Shell对象隐藏cmd命令行运行框的实现代码
1.WScript.Shell（WindowsScriptHostRuntimeLibrary）是一个对象，对应的文件是C:WINDOWSsystem32wshom.ocx，Wscript.shell是服务器系统会用到的一种组件。shell就是壳的意

常用VBS代码 值得一看
从系统开始菜单中删除此链接:WindowsRegistryEditorVersion5.00[HKEY_CLASSES_ROOTCLSID{2559a1f6-21d7-11d4-bdaf-00c04f60b9f0}]@=-"InfoTip"=-[HKEY_CLASSES_ROOTCLSID{2559a1f6-21d7-11d4-bdaf-