version-control - 有没有一种简单的方法可以从 ms vss 中获取具有版本号的文件列表？

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