Question

我一直在创建一个简单的VBS脚本，它创建一个新的.vbs文件，将代码写入该文件，然后删除自己。但是，当它试图编写代码本身时，它认为代码是实际脚本的一部分或者其他东西，而不是写入文件的代码，在第12行给出了错误“预期结束语句”。什么是错的？

domEl

Answer 1

您的报价未被转义。使用“”在字符串中打印引号，否则它会认为您的字符串已结束并开始解释其后面的代码。

Option Explicit
Dim fso, obj, nDirS, wshshell, oFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set obj = CreateObject("wscript.shell")
Const WR = 2
Set fso = CreateObject("Scripting.FileSystemObject")

Set oFile = fso.OpenTextFile (obj.SpecialFolders("Desktop")&"\finished.vbs",WR,true)

oFile.Writeline "Option Explicit"
oFile.Writeline "Dim fso, obj, nDirS, wshshell"
oFile.Writeline "Set fso = CreateObject(""Scripting.FileSystemObject"")"
oFile.Writeline "Set obj = CreateObject(""wscript.shell"")"
oFile.Writeline "WScript.Sleep(1000)"
oFile.Writeline "CreateObject(""WScript.Shell"").Popup ""Error in Memory 16x"", 5, ""Oops"""

将代码块写入文件VBS

1 个答案: