VBScript 创建并打开一个新文件

Question

我尝试用 VBScript 为 PowerAMC 制作脚本。我有一个错误。

我检查了所有元素以创建一个包含以下内容的文件（XSD 文件）：

private Sub writeInFile(pathFolder, pathFile, val)
  Output "WriteInFile["&pathFolder&pathFile&"]"
  Dim fso, MyFile
  Set fso = CreateObject("Scripting.FileSystemObject")

  Set MyFile = fso.CreateTextFile(pathFolder&pathFile, true)
  If (fso.FileExists(pathFolder&pathFile)) Then
    MyFile.WriteLine(val)
  Else
    ouput "File can't be create"
  End If

  MyFile.Close
  end Sub

并且文件内容良好，但如果我尝试阅读它：

public Function readFile(path)
  'Declare variables
  Dim objFSO, objReadFile, contents

  'Set Objects
  Set objFSO = CreateObject("Scripting.FileSystemObject")
  Set objReadFile = objFSO.OpenTextFile(path, 1, false)

  'Read file contents
  contents = objReadFile.ReadAll

  'Close file
  objReadFile.close

  'Cleanup objects
  Set objFSO = Nothing
  Set objReadFile = Nothing

  readFile = contents
   End Function

我明白了：“ÿþ<”仅适用于内容，但如果我尝试读取不是由上一个函数创建的文件，它会完美运行。

Answer 1

我认为问题出在 Unicode 格式上，看看这个 => FileSystemObject - Reading Unicode Files

VBScript 创建并打开一个新文件

VBScript create and open a new file

vbscript