vba 操作VSS

Dim vssDatabase As New vssDatabase

Dim vssFolder As IVSSItem

'打开VSS
Call vssDatabase.Open("//XX.XXX.XX.XXX/vss/srcsafe.ini", "user", "password")

'指定要操作的文件或目录

Set vssFolder = vssDatabase.VSSItem("$/tst/aa.txt", False)

'checkout

Call vssFolder.CheckOut("", "C:/aa.txt", 0)

 

 

VSS帮助文档上，每一个函数的使用都有例子