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
您可能感兴趣的文章:
- 用VBSrcipt判断是否是日期
- 用vbs实现按创建日期的顺序列出一个文件夹中的所有文件
- 用vbs判断一个日期是否在指定的时段内
- 用vbs实现的简单的服务器文件备份办法压缩文件名自动按日期命名
- VBS的字符串及日期操作相关函数
- 用VBS修改(设置)系统时间和日期的代码
- vbs获取当前时间日期的代码
- 使用VBS获取当前日期的前一天 并修正输出格式
本文由 华域联盟 原创撰写:华域联盟 » vbs下通过日期查找文件夹的代码
转载请保留出处和原文链接:https://www.cnhackhy.com/15232.htm