Ethan Kinney

EPDM BatchGet -> Get Latest Version for VB.NET 4.5

Discussion created by Ethan Kinney on Jun 20, 2014
Latest reply on Jan 14, 2019 by Justin Hunt

Hi All,


I was having trouble trying to do a batchget in EPDM to get the latest version of all files in a directory and I finally figured it out.


Here is the code I was using:



            Dim Vault As New EdmVault5
            Vault.LoginAuto("Engineering", 0)
            Dim SubFolder As String = Vault.RootFolderPath & "\DirectoryToRefresh"
            Dim GetDirectory() As EdmSelItem = Nothing
            ReDim GetDirectory(0)
            GetDirectory(0).mlDocID = 0
            GetDirectory(0).mlProjID = Vault.GetFolderFromPath(SubFolder).ID
            Dim bg As IEdmBatchGet
            bg = Vault.CreateUtility(EdmUtility.EdmUtil_BatchGet)
            bg.AddSelection(Vault, GetDirectory)
            bg.CreateTree(0, EdmGetCmdFlags.Egcf_Nothing)
            bg.GetFiles(0, Nothing)
        Catch ex As Runtime.InteropServices.COMException
            MessageBox.Show("HRESULT = 0x" + ex.ErrorCode.ToString("X") + vbCrLf + ex.Message)
        Catch ex As Exception
        End Try


For the longest time i was getting an "E_INVALIDARG" on the line "bg.AddSelection".

Finally I stumbled accross this page in the API Help Documentation:


If you are developing in Visual Studio like I was and have a reference set to interop.edmLib you have to do the following:

Go to "My Project" > "References" > Click on PDMWorks Enterprise 20xx Type Library > and set the "Embed Interop Types" to False


Note: This is vaild if you are programming in 4.0 or 4.5! (I was programming in 4.5)


After I changed this value, then bingo, worked like a charm.


Hopefully this will help someone else out!