QTP 脚本执行错误

tlp_2009

Dim fso,xls,spli_path
Set fso = CreateObject("Scripting.FileSystemObject")
    Set xls = CreateObject("Excel.Application")
   
    spli_path = split(environment("TestDir"),"\",-1,1)
   
    For i=0 to ubound(spli_path)
        res_path = res_path & spli_path(i) & "\"
    Next
msgbox  res_path


执行这句怎么报是抱类型错误。不知道问题在哪里？请大家帮忙看看！！

wangyanzhao

朋友 见下代码：解决你的问题
自定义一个enrivonment，name:test; value: D:\qtp\library
Dim fso,spli_path
Set fso = CreateObject("Scripting.FileSystemObject")   

spli_path = split(environment ("Test"),"\",-1,1)
rem 以下是调试信息
msgbox spli_path(0)
msgbox spli_path(1)
msgbox spli_path(2)

For i=0 to ubound(spli_path)
        res_path = res_path & spli_path(i) & "\"
                msgbox  res_path
Next