QTP 如何在读取文件内容的循环外取到数组的值

backerking

Dim strarray(1000)
Dim i
i=0
Set fso = CreateObject("Scripting.FileSystemObject")
Set openfile=fso.OpenTextFile("C:/TP131205KF.TXT",1,True)
Do          Until openfile.AtEndOfStream              
strarray(i)=openfile.ReadLine         
    i=  i+1   
Loop
openfile.Close
Set fso=Nothing
msgbox strarray(i)
为什么msgbox strarray(i) 取不到值，该如何解决

joykao

回复 1# backerking


    骚年。。你这个路径首先就写错了哇。。C:/TP131205KF.TXT

是不是应该是这样啊C:\TP131205KF.TXT