Question

我经常需要在其上制作带有Microsoft Visual Source Safe版本号的文件清单。有没有办法在项目中获取具有版本号的文件列表？

Answer 1

您可以使用自动化，VSS 6.0（及更早版本）附带可以使用的ActiveX DLL。在项目中引用Microsoft SourceSafe 6.0类型库，以及类似的内容（下面未经过验证和未经测试的VB代码）应该适合您。

自动化是非常强大的，我曾经用它来证明Vss集成到一个Ide我曾经建立的业务类型民间写XQuery片段来查询Xml消息。

Private Sub GetAllVersionNumbers()
    Dim db As New VSSDatabase
    Call db.Open("\\codestore\myProject\srcsafe.ini", "Myuser", "password")

    Call GetItemVersion(db.CurrentProject)
End Sub

Private Sub GetItemVersion(ByVal root As VSSItem)
    Dim item As VSSItem

    For Each item In root
        If item.Type = VSSITEM_FILE Then
            Call Output(item.Name, item.VersionNumber)
        Else ' item.Type =VSSITEM_FDOLDER
            'recurse
            Call GetItemVersion(item)
        End If
    Next
End Sub

有没有一种简单的方法来获取版本号超出ms vss的文件列表？

1 个答案: