批处理之家 - Powered by Discuz! Board

标题: [问题求助] VBS代码双击运行为什么没反应？ [打印本页]

作者: depsyq 时间: 2014-9-5 09:58 标题: VBS代码双击运行为什么没反应？

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

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

作者: yu2n 时间: 2014-9-5 10:33

回复 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 时间: 2014-9-5 11:07

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

作者: yu2n 时间: 2014-9-5 13:11

回复 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
复制代码

欢迎光临批处理之家 (http://bbs.bathome.net/)