VBScript 创建 ANSI 编码文本文件 - 代码示例与说明

下面是一个示例的 VBScript 代码，用于创建一个 ANSI 编码格式的文本文件：

Dim objFSO, objFile
Const ForWriting = 2
Const TristateFalse = 0

' 创建文件系统对象
Set objFSO = CreateObject("Scripting.FileSystemObject")

' 创建文本文件
Set objFile = objFSO.CreateTextFile("C:\path\to\file.txt", True, False)

' 设置文件编码格式为 ANSI
objFile.Write Chr(255) & Chr(254) ' BOM标记，用于指示ANSI编码格式

' 写入文本内容
objFile.WriteLine "这是一个ANSI编码格式的文本文件。"

' 关闭文件
objFile.Close

' 释放对象
Set objFile = Nothing
Set objFSO = Nothing

请注意，上述代码中的C:\path\to\file.txt应替换为您想要创建的文本文件的路径。该代码会在指定路径下创建一个名为file.txt的文本文件，并将其内容设置为"这是一个ANSI编码格式的文本文件。"。使用 BOM 标记Chr(255) & Chr(254)来指示 ANSI 编码格式。