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

depsyq

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

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

yu2n

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

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

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

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

depsyq

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

yu2n

回复 3# depsyq

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