vbs下通过日期查找文件夹的代码
摘要: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
【vbs下通过日期查找文件夹的代码】相关文章:
上一篇:
vbscript 注册表脚本书写
下一篇:
vbs复制文件的脚本