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

Dim Fileobj,FilePath,FileName,Arrayline

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

'创建一个文本文件并写入数据 <|�俌涐嚤�  
Set objth = CreateObject ("Scripting.FileSystemObject") 13FW*�隖�  
Set AdFile = objth.OpenTextFile(FilePath,2,true)      '此方法打开指定的文件并返回TextStream对象 ，第一个参数为要打开文件字符串表达式,第二个参数有三个值1,2,8可选,第三个参数True为创建新文件 禙a鄐揍泜�  
AdFile.WriteLine "###############################" 噷訫陷BcP  
AdFile.WriteLine "此脚本为读写文本文件的脚本例子" 匩}蚔髝瀑�  
AdFile.Close

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

 While not AdFile.AtEndofLine    '如果文件指针正好位于OpenTextFile返回的TextStream文件中的行尾符之前,则返回True,否则返回False,只读 溁
2.愡�  
  Arrayline = Split(AdFile.ReadLine,",")'此方法将一个字符串分割为子字符串,然后将结果作为字符串数组返回 �7V溽&評:  
  msgbox Arrayline(i) �< zzQ>�  
 Wend