[ 本帖最后由 happychap 于 2008-11-25 17:15 编辑 ]作者: happychap 时间: 2008-12-1 09:30
没人回复,@。@
俺在网上看到一个读取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