在 VBScript 中枚举区分大小写的文件？

Question

我使用以下 VBScript 代码片段来枚举 c:\Scripts\ 文件夹中的所有文件：

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
   & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colFiles = objWMIService. _
   ExecQuery("Select * from CIM_DataFile where Path = '\\Scripts\\'")

For Each objFile in colFiles
    Wscript.Echo objFile.Name 
Next

不幸的是 objFile.Name 返回全部小写的路径。 对我来说，检索所有文件名的大小写很重要，即 NewFileOne.txt，不应作为 newfileone.txt 返回。

有没有办法在 VBScript 中枚举区分大小写的文件？

Answer 1

如果您使用 FileSystemObject，您将返回保留大小写的名称

文件集合 (MSDN)

dim objFSO, path, fldr, f, msg
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set fldr = objFSO.GetFolder("C:\Scripts")

For Each f in fldr.Files
    MsgBox f.name
Next

Answer 2

与CIM_DataFile.Name 属性不同，FileName 和Extension 属性区分大小写。 因此，如果您需要使用WMI，您可以分别检索文件名和扩展名：

WScript.Echo objFile.FileName & "." & objFile.Extension

Answer 3

迈克的解决方案更好，但这里有一个非常丑陋的替代方案：

使用 shell exec 执行以下命令：

dir c:\scripts /B>file.txt 

现在“file.txt”包含以正确大小写列出的文件。

抱歉，它很难看，但有效。