VBS代码:
Set attFact = theBug.Attachments
Set attlst = attFact.NewList("")
'msgbox attlst.count
For each attobj in attlst
Set attStorage = attobj.attachmentstorage
attStorage.clientpath = "c:\temp"
attStorage.Load attobj.Name, True
Next
VBS代码:
Set attFact = theBug.Attachments
Set attlst = attFact.NewList("")
'msgbox attlst.count
For each attobj in attlst
Set attStorage = attobj.attachmentstorage
attStorage.clientpath = "c:\temp"
attStorage.Load attobj.Name, True
Next