通过Alephabets提取已排序的文件名

Question

正如您所知，您可以按照名称对Windows资源管理器中的文件进行排序，但似乎VBScript没有按照排序方式显示它们。

这是一个示例脚本，逐个显示文件夹中的文件名

Set objFSO = CreateObject("Scripting.FileSystemObject")
strReg = "C:\Users\Smart\Desktop\Files"
Set objFolder = objFSO.GetFolder(strReg)
Set colFiles = objFolder.Files
For Each objFile in colFiles
    WScript.Echo ObjFile.Path
Next

但它似乎是以随机方式显示文件。如何编辑此脚本以显示文件，就像它们在Windows资源管理器中排序一样？

请注意我的文件＆＃39;名称是unicode

Answer 1

由于FileSystemObject无法对文件进行排序（参见引用here），因此您必须编写（而不是编辑）自己的代码。使用ArrayList（以及替代方法列表）为示例启动here。第一个链接显示了如何使用dir /A:-D /B /O:...。