S-061104 – ‘How to modify convert task to use variable value from source file in folder name of output path’

For historical purposes, there is an older thread on this topic located here: Re: Using variable in task output path S-061104

Unfortunately S-061104 is missing from the SWX knowledge base, but it's title reflects what I'm trying to achieve: placing variable values from source file into output path of a file conversion task. I used the thread listed above in conjunction with S-054527 and S-062476 to try and achieve what S-061104 was aiming to document.

I'm attempting to make PartNo (Part Number), xRev (Revision), and Description (Description) available but the only variable that I can pull is Description. I have a difficult time understanding why Description works but the other two do not. S-061104.docx contains my entire task conversion script with additions highlighted; those sections pasted below for convenience.

Placing "MsgBox Value" below "GetVariableValue = Value" only produces a result for Description. I get nothing, not even an empty dialog box, for PartNo and xRev.

' ******************************************************************************

Dim vault As Object

' ******************************************************************************

' ******************************************************************************

Private Sub LoginToVault()

              On Error GoTo ErrHand

              Dim strTempVaultName As String

              Dim strVaultName As String

              strTempVaultName = "<VaultPath>"

              i = Len(strTempVaultName)

              j = InStrRev(strTempVaultName, "\")

              strVaultName = Right(strTempVaultName, i - j)

              Set vault = CreateObject("ConisioLib.EdmVault")

              vault.LoginAuto strVaultName, 0

              Exit Sub

              ErrHand:

              If Not vault Is Nothing Then

                             Dim errname As String

                             Dim errdesc As String

                             vault.GetErrorString Err.Number, errname, errdesc

                             Log ("LoginToVault error" & vbCrLf & errname & vbCrLf & errdesc )

              Else

                             Log "Error creating file vault interface."

              End If

End Sub

Private Function GetVariableValue(FilePath, VariableName, Configuration)

              On Error GoTo ErrHand

              Dim File As Object

              'Get the interface of the file (and its parent folder)

              Dim Folder As Object

              Set File = vault.GetFileFromPath(FilePath, Folder)

              'Obtain the variable interface

              Dim pEnumVar As Object

              Set pEnumVar = File.GetEnumeratorVariable

              Dim Value As Variant

              If pEnumVar.GetVar(VariableName, Configuration, Value) Then

                             GetVariableValue = Value

                             MsgBox Value

              Else

                             GetVariableValue = ""

              End If

              Exit Function

              ErrHand:

                             Dim ename As String

                             Dim edesc As String

                             vault.GetErrorString Err.Number, ename, edesc

                             Log "GetvariableValue error" & vbCrLf & ename & vbCrLf & errdesc

End Function

' ******************************************************************************

' ******************************************************************************

              'Get the vault interface

              Call LoginToVault

              'Get Variable Values

              Dim PartNumberVarValue

              Dim RevNumberVarValue

              Dim DescriptionVarValue

              PartNumberVarValue = GetVariableValue(docFileName, "PartNo", "@")

              RevNumberVarValue = GetVariableValue(docFileName, "xRev", "@")

              DescriptionVarValue = GetVariableValue(docFileName, "Description", "@")

' ******************************************************************************

' ******************************************************************************

    convFileName = Replace(convFileName, "<PartNumber>", PartNumberVarValue)

    convFileName = Replace(convFileName, "<RevNumber>", RevNumberVarValue)

    convFileName = Replace(convFileName, "<Description>", DescriptionVarValue)

' ******************************************************************************

' ******************************************************************************

      convFileName2 = Replace(convFileName2, "<PartNumber>", PartNumberVarValue)

      convFileName2 = Replace(convFileName2, "<RevNumber>", RevNumberVarValue)

     convFileName2 = Replace(convFileName2, "<Description>", DescriptionVarValue)

' ******************************************************************************

For Reference:

     S-054527 – ‘How to modify convert task to use variable value from source file in output file name’
     S-061104 – ‘How to modify convert task to use variable value from source file in folder name of output path’

     S-062476 – ‘ How to modify convert task to use user name in folder name of output path?’