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

用vbscript根据日期查找文件，有时候我们需要找指定日期的文件，用下面的代码即可

 

On Error Resume Next 
dtmTargetDate = "20020301000000.000000-420" 
strComputer = "." 
Set objWMIService = GetObject _ 
    ("winmgmts:" & "!//" & strComputer & "/root/cimv2") 
Set colFolders = objWMIService.ExecQuery _ 
    ("Select * from Win32_Directory Where CreationDate > '" & _ 
        dtmtargetDate & "'") 
For Each objFolder in colFolders 
    Wscript.Echo objFolder.Name  
Next