[问题求助] VBS代码双击运行为什么没反应？

depsyq

Sub CreateAfile 
Set fs = CreateObject("Scripting.FileSystemObject") 
Set a = fs.openTextFile("d:\vbs.txt",ForReading) 
End Sub
复制代码

我把上面的代码保存为.vbs的文件，并在windos桌面上双击运行，但都没什么反应？ 是哪里错误呢？

depsyq

若要输入一些字符，并赋值给一个变量，再把这个变量的内容写入文件中，改如何编辑？