QTP从txt文件中读数据

Const ForReading=1,ForWriting=2,ForAppending =3
  Dim objFSO,objFile,strText
  Set bjFSO=createobject ("Scripting.FileSystemObject")
  Set bjFile=objFSO.openTextFile("C:\Documents and Settings\Administrator\桌面\新建 文本文档 (3).txt",ForReading)
  
   Do until objFile.AtEndOfStream
    strText=objFile.Readline
   Loop

   objFile.Close
   Set bjFile= Nothing
   Set bjFSO= Nothing