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

时间:2021-12-25 23:12:04
  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