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

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 函数。

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

MsgBox with Scripting.FileSystemObject's File.Path does not display Cyrillic characters

vba

special-characters