用vbs实现按创建日期的顺序列出一个文件夹中的所有文件

2019-10-26 17:59:24

字体：大中小

来源：转载

供稿：网友

问：
你好，脚本专家！如何按创建日期的顺序列出一个文件夹中的所有文件？

-- CL

答：
你好，CL。您知道，如果我们雄心勃勃并且努力工作，我们会坐下来为您写一个脚本，以使用 WMI 返回一个文件夹中的所有文件。该脚本将获取有关所有这些文件的信息，并将该数据存储在未连接的记录集中。然后，在该记录集中设置排序顺序以按创建日期和时间对文件进行排列。（接着，我们进行大量的重复性工作，以将 WMI 的日期时间值转换为易读的日期时间格式。）最后，我们将记录集中的所有值回显到屏幕上。它需要花费大量时间并编写许多代码，但最终您会得到已排序的文件列表，而且每个人都会说“哇，那些脚本专家真是为读者尽心尽力，不是吗？”

而事实上，我们并非雄心勃勃和努力工作；我们只是脚本专家。作为脚本专家，我们一直在寻找最快速、最简便的解决问题的方法。因此，我们没有去写一个冗长而复杂的脚本，而是弄来了一份 Log Parser 2.2，并匆忙完成了以下几行代码：

复制代码代码如下:

Set objLogParser = CreateObject("MSUtil.LogQuery")
Set objInputFormat = CreateObject("MSUtil.LogQuery.FileSystemInputFormat")
objInputFormat.Recurse = 0

Set objOutputFormat = CreateObject("MSUtil.LogQuery.NativeOutputFormat")
objOutputFormat.rtp = -1

strQuery = "SELECT Name, CreationTime FROM 'C:/Scripts/*.*' " & _
"WHERE NOT Attributes LIKE '%D%' ORDER BY CreationTime"
objLogParser.ExecuteBatch strQuery, objInputFormat, objOutputFormat

猜猜看？此脚本不但能正常工作，还能返回文件列表（按创建日期和时间排序），而不管实际情况怎样。太酷了。

当然，我们通常建议不使用非操作系统内置的解决方案；因为我们不想让人们下载和安装一些不是绝对必需的东西。然而，当要列举文件时，很有必要下载和安装 Log Parser；当您不得不获得有关一组文件的信息时，您会发现 Log Parser 方法优于 WMI 或 FileSystemObject。Log Parser 的七八行代码比得上 WMI 的六七十行代码吗？我们会把决定权留给您。

我们不会花时间介绍有关 Log Parser 的所有信息；有关详细信息，您可以参阅“脚本故事”专栏您需要的所有内容就是日志（即 Log Parser）。现在，我们只需注意，脚本从创建 Log Parser 对象的实例开始，使用易记忆的名称 MSUtil.LogQuery 以便于更好的记忆。然后，我们创建两个其他对象，第一个指定我们正在使用的对象（在此情况下为文件系统，虽然我们也可以使用事件日志、Active Directory、注册表和其他项），第二个指明我们要使用的输出类型（在此示例脚本中，我们要做的所有事情就是将数据写入命令窗口）下列两行代码创建输入对象，并告诉 Log Parser 不从任何子文件夹检索文件：

上一篇：vbs脚本大全，配有实例 DOS命令，批处理脚本代码

下一篇：vbs中使用 ADO 读取所有数据均在一行上的文本文件的代码