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

Question

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

Answer 1

Вы можете использовать автоматизацию, VSS 6.0 (и более ранние версии) поставляется с DLL ActiveX, которую вы можете использовать. В вашем проекте должна быть ссылка на библиотеку типов Microsoft SourceSafe 6.0 и что-то вроде этого (непроверенный и непроверенный код 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