1、 将bug添加到QC
Dim TDConnection
Set TDConnection =CreateObject("TDApiOle.TDConnection")
TDConnection.InitConnection "http://yovav/tdbin"' URL for the DB
TDConnection.ConnectProject"TD76","bella","pino" ' Valid login information
If TDConnection.Connected Then
MsgBox("Connected to " + chr (13) + "Server " +TDConnection.ServerName _
+ chr (13) +"Project " +TDConnection.ProjectName )
Else
MsgBox("Not Connected")
End If
'Get the IBugFactory
Set BugFactory = TDConnection.BugFactory
'Add a new empty bug
Set Bug = BugFactory.AddItem (Nothing)
'fill the bug with relevant parameters
Bug.Status = "New"
Bug.Summary = "Connecting to TD"
Bug.Priority = "4-Very High" ' depends on theDB
Bug.AssignedTo = "admin" ' user that must existin the DB's users list
Bug.DetectedBy = "admin" ' user that must existin the DB's users list
'Post the bug to DB ( commit )
Bug.Post
2、 文件操作函数集：
' Creates a specified file and returns a TextStream object thatcan be used to read from or write to the file.
' Example of usage
' Set f = CreateFile("d:\temp\beenhere.txt",True)
' f.WriteLine Now
' f.Close
Function CreateFile(sFilename, bOverwrite)
Set fso =CreateObject("scrīpting.FileSystemObject")
Set CreateFile = fso.CreateTextFile(sFilename,bOverwrite)
End Function
' Opens a specified file and returns aTextStream object that can be used to read from, write to, orappend to the file.
' iomode: 1 - ForReading, 2 - ForWriting, 8 -ForAppending
' Example of usage
' Set f = OpenFile("d:\temp\beenhere.txt", 2,True)
' f.WriteLine Now
' f.Close
Function OpenFile(sFilename, iomode, create)
Set fso =CreateObject("scrīpting.FileSystemObject")
Set ōpenFile = fso.OpenTextFile(sFilename,iomode, create)
End Function
' Appends a line to a file
' Example of usage
' AppendToFile "d:\temp\beenhere.txt", Now
Function AppendToFile(sFilename, sLine)
Const ForAppending = 8
If sFilename = "" Then
sFilename = Environment("SystemTempDir")& "\QTDebug.txt"
End If
Set f = OpenFile(sFilename, ForAppending,True)
f.WriteLine sLine
f.Close
End Function
' Writes a line to a file.
' Destroys the current content of thefile!
' Example of usage
' WriteToFile "d:\temp\beenhere.txt", Now
Function WriteToFile(sFilename, sLine)
Const ForWriting = 2
If sFilename = "" Then
sFilename = Environment("SystemTempDir")& "\QTDebug.txt"
End If
Set f = OpenFile(sFilename, ForWriting,True)
f.WriteLine sLine
f.Close
End Function
