Obtener la ultima version con VSS api

        Imports SourceSafeTypeLib

        Dim vssDB As VSSDatabase


        vssDB = New VSSDatabase()
        Const baseVSS = "\\servidor\vss$\srcsafe.ini"
        vssDB.Open(baseVSS, "", "")

        sFolder = vssDB.VSSItem("$/" & proyecto, False)

        sFolder.Get(My.Settings.DirFuentes & proyecto, VSSFlags.VSSFLAG_FORCEDIRNO Or VSSFlags.VSSFLAG_REPREPLACE Or VSSFlags.VSSFLAG_RECURSYES)