1. 解决ExecuteFile调用外部的VBS文件时提示”无效字符”的问题
出现这个问题的原因: 在QTP新建的Function Library文件是以Unicode编码被保存下来的,而正常执行的文件一定要是ANSI编码,所以导致出现”无效字符”的提示 解决办法: 1. 用记事本打开该vbs文件,然后点击”另存为”,编码选择”ANSI”,覆盖掉原来的文件即可 2. 对于要用ExecuteFile引用的vbs文件,最好用记事本或其它编辑工具保存为ANSI编码的,QTP只能保存成Unicode的所以不要用QTP(这也算是QTP的一个bug)
2. 一个读取当前Test中附件的方法,可惜这个方法不能读取目录中的附件。。
dim CurrentTest
set CurrentTest = QCUtil.CurrentTest
Set attf = CurrentTest.Attachments
Set attList = attf.NewList("")
Set att = attList.Item(1)
If att.Type = TDATT_FILE Then
att.Load True, "c:"
str = att.FileName
Msgbox str
End If