Announcements
Attention for Customers without Multi-Factor Authentication or Single Sign-On - OTP Verification rolls out April 2025. Read all about it here.

Hi Richter

 

It works as intended! Beautiful!
Now I would like that the new file is checked into Vault.
Do you know any code to make this happen?

This way we can use the files without having to open them and checking them in manually.

 

BR

Justin

 

here is the coded which I changed very little to make it work.

 

Dim currentfilename As String
Dim choice As String
Dim length As String


currentfilename = ThisDoc.FileName(False)

choice = Parameter("FixedUnit_Curve")
length = Parameter("FixedUnit_Length")

'custom filepath
'SetTheFilePathHere = "C:\ ... your filepath ..."

'filepath same as the current ipt
SetTheFilePathHere = ThisDoc.Path

SetTheFilenameHere = currentfilename & " - " & choice & " - L" & length & "mm"


ThisApplication.CommandManager.PostPrivateEvent(kFileNameEvent, SetTheFilePathHere &"\" & SetTheFilenameHere & ".ipt")

Dim oCtrlDef
oCtrlDef = ThisApplication.CommandManager.ControlDefinitions.Item("AppFileSaveCopyAsCmd")
oCtrlDef.ExecuteH