vb6错误代码800A0401打开for as语句写入文件

Question

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

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

Answer 1

如果要在VBScript中执行此操作，则必须使用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文件中并运行它。在'打开'时收到编译时错误C：\ log.txt“对于追加为＃1'

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

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