yu2n

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

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

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

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

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 SubCOPY