VBS代码:
Set attFact = theBug.Attachments
Dim fso, f, f1, fc, s
Set fso = CreateObject(""Scriting.FileSystemObject)
Set f = fso.GetFolder("c:\test")
Set fc = f.Files
'msgbox fc.count
for each f1 in fc:
Set Att = attFact.AddItem(Null)
att.FileName = f1.Path
att.Type = 1
att.Post
Next