vbscript - vb6 错误代码 800A0401 在打开时作为语句写入文件

Question

我正在尝试运行以下 vbs 脚本，但不断收到错误 800A0401（错误：预期语句结束），第 1 行第 19 列。

Open "C:\log.txt" For Append As #1
Print #1, "testing"
Close #1

Answer 1

If you want to do this in VBScript, you have to use the FileSystemObject:

Const ForAppending = 8

Set fso = CreateObject("Scripting.FileSystemObject")

Set f = fso.OpenTextFile("C:\log.txt", ForAppending)
f.WriteLine "testing"
f.Close

Answer 2

我试图运行的代码原来是 VB6 代码，我的印象是它是 VBScript。背景是我有一个冗长的功能，有人通过电子邮件向我发送故障排除。我的印象是它是一个 VBScript，所以我将它复制并粘贴到 VBScript 文件中并运行它。'Open "C:\log.txt" For Append As #1' 出现编译时错误

我没有安装 VB6 环境，但能够使用 excel VBA 运行它。在这一点上，我相信 VBScript 中不存在 Open 命令，但 VB6 和 VBA 中确实存在。

感谢所有可能看过这个并试图帮助我的人。