vbs下通过日期查找文件夹的代码
发布时间：2016-12-28 来源：查字典编辑
摘要：OnErrorResumeNextdtmTargetDate="20020301000000.000000-420"strComputer=...
OnErrorResumeNext
dtmTargetDate="20020301000000.000000-420"
strComputer="."
SetobjWMIService=GetObject_
("winmgmts:"&"!"&strComputer&"rootcimv2")
SetcolFolders=objWMIService.ExecQuery_
("Select*fromWin32_DirectoryWhereCreationDate>'"&_
dtmtargetDate&"'")
ForEachobjFolderincolFolders
Wscript.EchoobjFolder.Name
Next