String VBS读线错误ÿþ；H

我希望读取一个txt文件，然后能够在我的vb脚本中使用该变量，但它不起作用。如果我向控制台回显，它会发出“ÿþH”。我不知道这是什么。这是我的密码

Const FONTS = &H14&
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace(FONTS)


FileName = "c:\users\user\desktop\fonts.txt"
Const ForReading = 1
Set objFile = fso.OpenTextFile(FileName, ForReading)
Do Until objFile.AtEndOfStream
  count = objFile.ReadLine
  Wscript.Echo count    'this outputs "ÿþH" instead of "arial.ttf" from file
  objFoler.CopyHere "c:\users\user\desktop\"& count
Loop
objFile.Close

---

文件可能是Unicode，而不是ASCII

如果将

Const TristateTrue=-1

添加到脚本中，然后调用

Set objFile=fso.OpenTextFile（FileName，ForReading，TristateTrue）

而不是

Set objFile=fso.OpenTextFile（FileName，ForReading）

，文件将以Unicode而不是ASCII打开

---

根据

Scripting.FileSystemObject

的文档，

TristateTrue

表示文件将以Unicode格式打开。

如果尝试以下操作，会发生什么情况

Set objFile=fso.OpenTextFile（FileName，ForReading，False，-1）

非常感谢。我本来用过这个，但不知什么原因我把它取了下来。但不知道如何标记为已回答。