有沒有一種簡單的方法來獲得ms vss版本以外的文件列表？

Question

我經常需要製作帶有Microsoft Visual Source Safe版本號的文件清單。有沒有辦法在項目中獲得版本號的文件列表？

Answer 1

您可以使用自動化，VSS 6.0（及更早版本）附帶可用的ActiveX dll。 參考項目中的Microsoft SourceSafe 6.0 Type Library以及類似於（未經證實和未經測試的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