VB6的錯誤代碼800A0401寫入文件

我試圖運行下面的VBS腳本，但一直得到錯誤800A0401（錯誤：statment的預計結束），行1列19VB6的錯誤代碼800A0401寫入文件

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

來源

2013-06-21 user2510492

VBScript是不是VB6。你用的是哪個？它們不是同義詞。此外，你甚至谷歌的錯誤代碼？快速搜索「錯誤代碼800a0401 vbscript」可以找到很多答案，包括[This one]（http://www.computerperformance.co.uk/Logon/code/code_800A0401.htm）。快速搜索'vbscript打開文件進行追加'也會發現一些有用的信息。 –

感謝您的回覆我在谷歌查找語法，它看起來是正確的，重新輸入它，這是一個.vbs文件，謝謝你會看看你發送的鏈接，如果需要繼續谷歌，我肯定會找到解決方案最終 – user2510492

我試圖運行的代碼竟然是VB6代碼，我的印象是VBScript。背景是我有一個冗長的功能，有人發電子郵件給我排除故障。我以爲它是一個VBScript的印象，所以我複製並粘貼到VBScript文件並運行它。「打開」C：\ log.txt時出現編譯時錯誤「For Append As＃1'

我沒有安裝VB6環境，但能夠使用excel VBA運行此操作。在這一點上，我相信Open命令在VBScript中不存在，但在VB6和VBA中存在。

謝謝所有可能看到這個並試圖幫助我的人。

來源

2013-06-22 06:05:39 user2510492

+1 。究竟。 Open語句存在於VB6和VBA中，但不包含VBScript。 VB6與VB6 99％相同。 – MarkJ

如果你想這樣做在VBScript中，你必須使用FileSystemObject：

Const ForAppending = 8 

Set fso = CreateObject("Scripting.FileSystemObject") 

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

來源

2013-06-22 09:39:33

VB6的錯誤代碼800A0401寫入文件

回答

相關問題