12-13-2023
10:36 PM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
12-13-2023
10:36 PM
Would you please elaborate on your answer, if possible? I have access to the VaultSDK.chm file too.
This is what I'm using to get the current lifecyclestate of a file.
AddReference "Autodesk.Connectivity.WebServices.dll"
Imports AWS = Autodesk.Connectivity.WebServices
AddReference "Autodesk.DataManagement.Client.Framework.Vault.dll"
Imports VDF = Autodesk.DataManagement.Client.Framework
AddReference "Connectivity.Application.VaultBase.dll"
Imports VB = Connectivity.Application.VaultBase
Sub Main()
Dim paras As Parameters
Dim para As Parameter
Dim propsets As PropertySets
Dim doc As Document = ThisDoc.Document
Dim mVltCon As VDF.Vault.Currency.Connections.Connection
mVltCon = VB.ConnectionManager.Instance.Connection
If mVltCon Is Nothing Then
MsgBox("Not logged in to Vault" )
Exit Sub
End If
MsgBox(get_vaultfilestatus(doc.FullFileName, mVltCon))
End Sub
Function get_vaultfilestatus(filepath As String, vaultconnection As VDF.Vault.Currency.Connections.Connection) As String
filepath = filepath.Replace("C:\xx\", "$/")
'flip the slashes
filepath = filepath.Replace("\", "/")
Dim VaultPaths() As String = New String() {filepath}
Dim wsFiels() As AWS.File = vaultconnection.WebServiceManager.DocumentService.FindLatestFilesByPaths(VaultPaths)
Dim mFileIt As VDF.Vault.Currency.Entities.FileIteration = New VDF.Vault.Currency.Entities.FileIteration(conn,wsFiels(0))
Dim lifeCycleInfo As VDF.Vault.Currency.Entities.FileLifecycleInfo = mFileIt.LifecycleInfo
Return lifeCycleInfo.StateName
'MessageBox.Show(lifeCycleInfo.StateName)
End Function