VBSファイルへのコードブロックの書き込み

Question

私は、新しい.vbsファイルを作成し、そのファイルにコードを書き込んだ後、自身を削除する単純なVBSスクリプトを作成しています。しかし、コード自体を書き込もうとすると、そのコードはファイルに書き込むコードではなく、実際のスクリプトの一部であると考えられ、12行目に "Expected end of statement"というエラーが表示されます。 ？

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) 
'&vbCrLf&_ 
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"" 

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"""