MsgBox与Scripting.FileSystemObject的File.Path不显示西里尔字符

Question

我正在浏览文件夹中的所有文件。当我点击包含这些特殊字符“Информационноеписьмо”的文件名时，特殊字符会变成“？” - 问号。请问如何以这种方式获取原始文件名？

代码：

Dim objFolder As Object
Dim objFile As Object
Dim objFSO as Object
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder("C:\test")
For Each objFile In objFolder.Files
    MsgBox objFile.Path 
next objFile

Answer 1

在区域设置中为非Unicode程序选择正确的代码页。

所有API调用都是ANSI。 MsgBoxA是ANSI函数。