vbs下通过日期查找文件夹的代码

1. On Error Resume Next  
2. dtmTargetDate = "20020301000000.000000-420"  
3. strComputer = "."  
4. Set objWMIService = GetObject _  
5.     ("winmgmts:" & "!\\" & strComputer & "\root\cimv2")  
6. Set colFolders = objWMIService.ExecQuery _  
7.     ("Select * from Win32_Directory Where CreationDate > '" & _  
8.         dtmtargetDate & "'")  
9. For Each objFolder in colFolders  
10.     Wscript.Echo objFolder.Name   
11. Next