VBS代码双击运行为什么没反应？

depsyq

1. Sub CreateAfile
   
2. Set fs = CreateObject("Scripting.FileSystemObject")
   
3. Set a = fs.openTextFile("d:\vbs.txt",ForReading)
   
4. End Sub

复制代码

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

yu2n

回复 1# depsyq
1. Call函数、过程

1. 
   
2. Call CreateAfile
   
3. Sub CreateAfile
   
4.     Set fs = CreateObject("Scripting.FileSystemObject")
   
5.     Set a = fs.openTextFile("d:\vbs.txt",ForReading)
   
6. End Sub
   

复制代码

2. 直接调用函数、过程：

1. 
   
2. CreateAfile
   
3. Sub CreateAfile
   
4.     Set fs = CreateObject("Scripting.FileSystemObject")
   
5.     Set a = fs.openTextFile("d:\vbs.txt",ForReading)
   
6. End Sub
   

复制代码

depsyq

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

yu2n

回复 3# depsyq

1. Call TEST()
   
2. Sub TEST()
   
3.     strText = InputBox("请输入一些文字：", "输入", "文字范例")
   
4.     txtFile = InputBox("请输入保存路径：", "输入", "d:\vbs.txt")
   
5.     If strText <> "" Then
   
6.         Set fso = CreateObject("Scripting.FileSystemObject")
   
7.         ' 写Txt，以ULE编码
   
8.         fso.OpenTextFile(txtFile, 2, True, -1).Write(strText)
   
9.         ' 读Txt，以ULE编码
   
10.         Msgbox fso.OpenTextFile(txtFile, 1, False, -1).ReadAll
    
11.     End If
    
12. End Sub

复制代码