函数:使用读写文本文件,读出文件中数据存放在一个变量中
'创建对象 createobject("scripting.FileSystemobject")
'打开文件 openTextFile("c:\testfile.txt")
'读文件TextStream.ReadLine
'写文件TextStream.WriteLine
'关闭文件 TextStream.Close
'===============================================================
writeconfig '调用函数
'Function Readconfig '定义一个函数,函数没有参数
' Const ForReading = 1, ForWriting = 2, ForAppending = 8 '定义常量
' Dim fso, f,Strline ,s'fso,f 是对象
'Set fso = CreateObject("Scripting.FileSystemObject") '给对象赋值必须用set
'Set f =