Есть ли простой способ получить список файлов с номерами версий из MS VSS?

Question

Мне часто нужно сделать манифест файлов с номерами версий Microsoft Visual Source Safe. Есть ли способ получить список файлов с номерами версий в проекте?

Answer 1

Вы можете использовать автоматизацию, VSS 6.0 (и более ранние версии) поставляется с ActiveX DLL, которую вы можете использовать. Ссылка Microsoft SourceSafe 6.0 Type Library в вашем проекте, и что-то вроде этого (непроверенный и непроверенный код VB ниже) должен работать для вас.

Автоматизация очень мощная, я когда-то использовал ее, чтобы доказать интеграцию Vss с идеей, которую я когда-то создавал, когда люди бизнес-типа писали фрагменты 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