'几个重要的方法:OpenTextFile,AtEndofLine,Split

Dim Fileobj,FilePath,FileName,Arrayline

FilePath="E:\cntesting.txt"       '操作文本的所在路径也可以为表达式

'创建一个文本文件并写入数据 %�$�誨�  
Set objth = CreateObject ("Scripting.FileSystemObject") 瘂癟Wc諔R  
Set AdFile = objth.OpenTextFile(FilePath,2,true)      '此方法打开指定的文件并返回TextStream对象 ，第一个参数为要打开文件字符串表达式,第二个参数有三个值1,2,8可选,第三个参数True为创建新文件 誯�.u壑l�  
AdFile.WriteLine "###############################" 5;C/�g菚q  
AdFile.WriteLine "此脚本为读写文本文件的脚本例子" �P��$綡  
AdFile.Close

Set AdFile =  objth.OpenTextFile(FilePath,1,false)    '此中的参数1为只读方式打开

 While not AdFile.AtEndofLine    '如果文件指针正好位于OpenTextFile返回的TextStream文件中的行尾符之前,则返回True,否则返回False,只读 r}栈 炠坼�  
  Arrayline = Split(AdFile.ReadLine,",")'此方法将一个字符串分割为子字符串,然后将结果作为字符串数组返回 礱碕SZ醷?  
  msgbox Arrayline(i) z崏）.�u4F  
 Wend