vbscript - 打印出按 FileName 排序的目录中的文件

Question

我正在尝试在目录中打印文档，按文件名升序排列。我有下面的脚本来打印文件，它有效，但它的顺序是随机的。有没有办法根据名称对“文件”集合进行排序？

'Set the TargetFolder
TargetFolder = "C:\Temp\Hewitt\TestPrintFolder" 

Set shellApplication = CreateObject("Shell.Application") 
Set folder = shellApplication.Namespace(TargetFolder) 
Set files = folder.Items 
For Each file In files 
    file.InvokeVerbEx ("Print") 
Next

Answer 1

获取目录中文件（名称）的有序列表的方法有很多。一个使用 .NET ArrayList - 像这样：

Option Explicit

Dim oFS    : Set oFS    = CreateObject("Scripting.FileSystemObject")
Dim sDir   : sDir       = "... your folder ..."
Dim oFiles : Set oFiles = CreateObject("System.Collections.ArrayList")
Dim oFile
For Each oFile In oFS.GetFolder(sDir).Files
    WScript.Echo oFile.Name
    oFiles.Add  oFile.Path
Next
WScript.Echo "----------"
oFiles.Sort
Dim sFile
For Each sFile In oFiles
    WScript.Echo oFS.GetFile(sFile).Name
Next

如果你不能驾驭 .Net，你可以

1. 将名称存储在 VBScript 数组中并查找/编写排序子/函数
2. 使用断开连接的 ADODB 记录集
3. 掏出dir /o:n