用vbs实现按创建日期的顺序列出一个文件夹中的所有文件
程序员文章站
2022-03-21 11:00:42
问： 你好，脚本专家！如何按创建日期的顺序列出一个文件夹中的所有文件？ -- cl 答： 你好，cl。您知道，如果我们雄心勃勃并且努力工作，我们会坐下来为您写一个...
问：
你好，脚本专家！如何按创建日期的顺序列出一个文件夹中的所有文件？
-- 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 不从任何子文件夹检索文件：
set objinputformat = createobject("msutil.logquery.filesysteminputformat")
objinputformat.recurse = 0
如果我们确实要检索任意或所有子文件夹的值，该怎么办？在该情况下，我们必须要做的所有事情就是将 recurse 属性的值设置为 -1：
objinputformat.recurse = -1
同时，下列两行代码创建输出对象，并告诉 log parser 显示所有数据而不要暂停：
set objoutputformat = createobject("msutil.logquery.nativeoutputformat")
objoutputformat.rtp = -1
或者，我们可以告诉 log parser 显示 10 行数据，然后暂停，直到我们按键盘上的某个键，然后再显示下 10 行数据。若要按每 10 行一批的规律显示数据，我们必须要做的所有事情就是将 rtp 属性的值设置为 10：
objoutputformat.rtp = 10
接下来配置 sql 查询以检索文件信息。如果您对 sql 有一些了解，此查询应该相对容易分析一些；如您所见，我们正要查询 c:\scripts 中所有文件的 name 和 creationtime。此外，我们要使返回的数据按创建日期和时间顺序排列，最先创建的文件排在最前面：
strquery = "select name, creationtime from 'c:\scripts\*.*' " & _
"where not attributes like '%d%' order by creationtime desc"
此查询中唯一不寻常的就是 where 子句：where not attributes like '%d%'。不用作过多的解释，此子句筛选出文件夹，从而只返回文件。包含 directory 属性的文件系统对象就是文件夹；因为我们不想要文件夹，所以使用 where not 语法清除拥有 directory（缩写为 %d%）属性的所有对象。
最后，调用 executebatch 方法来运行查询并将返回的数据写入命令窗口。一两秒钟之后，我们将获得如下所示的内容：
我们不需要输入任何特殊的命令就可以获得这一精密的表格输出；log parser 为我们处理所有问题。它真是太棒了，不是吗？
诚然，我们不必费很大力气就可以获得这些结果。而且它既快捷又简便。您可以这么来看：任何人都不必知道我们不努力工作，不是吗？
你好，脚本专家！如何按创建日期的顺序列出一个文件夹中的所有文件？
-- 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 不从任何子文件夹检索文件：
set objinputformat = createobject("msutil.logquery.filesysteminputformat")
objinputformat.recurse = 0
如果我们确实要检索任意或所有子文件夹的值，该怎么办？在该情况下，我们必须要做的所有事情就是将 recurse 属性的值设置为 -1：
objinputformat.recurse = -1
同时，下列两行代码创建输出对象，并告诉 log parser 显示所有数据而不要暂停：
set objoutputformat = createobject("msutil.logquery.nativeoutputformat")
objoutputformat.rtp = -1
或者，我们可以告诉 log parser 显示 10 行数据，然后暂停，直到我们按键盘上的某个键，然后再显示下 10 行数据。若要按每 10 行一批的规律显示数据，我们必须要做的所有事情就是将 rtp 属性的值设置为 10：
objoutputformat.rtp = 10
接下来配置 sql 查询以检索文件信息。如果您对 sql 有一些了解，此查询应该相对容易分析一些；如您所见，我们正要查询 c:\scripts 中所有文件的 name 和 creationtime。此外，我们要使返回的数据按创建日期和时间顺序排列，最先创建的文件排在最前面：
strquery = "select name, creationtime from 'c:\scripts\*.*' " & _
"where not attributes like '%d%' order by creationtime desc"
此查询中唯一不寻常的就是 where 子句：where not attributes like '%d%'。不用作过多的解释，此子句筛选出文件夹，从而只返回文件。包含 directory 属性的文件系统对象就是文件夹；因为我们不想要文件夹，所以使用 where not 语法清除拥有 directory（缩写为 %d%）属性的所有对象。
最后，调用 executebatch 方法来运行查询并将返回的数据写入命令窗口。一两秒钟之后，我们将获得如下所示的内容：
我们不需要输入任何特殊的命令就可以获得这一精密的表格输出；log parser 为我们处理所有问题。它真是太棒了，不是吗？
诚然，我们不必费很大力气就可以获得这些结果。而且它既快捷又简便。您可以这么来看：任何人都不必知道我们不努力工作，不是吗？