vbscript - VBScript：显示瑞典语字符 (äåö)

Question

以下 VBScript 读取 txt 文件并打印其内容。但是，它不显示诸如 äåö 之类的字符。有人可以帮助我知道如何阅读吗？

Set objFS = CreateObject("Scripting.FileSystemObject") 
inputDir = "c:\input\" 
inpFile = ""
inpFileCount = 0

Set objFolder = objFS.GetFolder(inputDir) 
For Each objFile in objFolder.Files 
    If LCase(objFS.GetExtensionName(objFile.name)) = "txt" Then 
        inpFile = objFile.Path 
        inpFileCount = inpFileCount + 1
    End If 
Next

If inpFileCount > 1 Then
    WScript.Quit(1)
End If

Set objFile = objFS.OpenTextFile(inpFile)
Do Until objFile.AtEndOfStream
    strLine = objFile.ReadLine
    If strLine <> Empty Then 
        WScript.Echo strLine
    End If
Loop

Answer 1

我设法通过将文件复制到目的地来解决它。虽然它不好，但它对我有用。

If objFS.FileExists(inpFile) Then 
    destinationFile = "D:\Test\refkoder.txt"
    objFS.CopyFile inpFile, destinationFile, True 
End If