Disable Automatic Backup When Upgrading Civil Model

Question

Is there is a way to disable the creation of a BAK file for every DGN that is upgraded? 
 I've suppressed the civil upgrade prompt with the config variable: 
 CIVIL_UPGRADE_PROMPT_OFF = 1 
 As we upgrade our users to the latest ORD version (10.12.02.4) all DGN files will need to be upgraded. 
 This creates a large number of BAK files on the server which then need to be collected and deleted.

Benzi Papo · Accepted Answer

I solved it by adding a File Open VBA handler as described here: 
 Handling MicroStation&reg; File Events with VBA 
 The code needs to be in a MVBA project which is auto-loaded at startup by OpenRoads / OpenRail (MS_VBAAUTOLOADPROJECTS). 
 Here is the code for hooks_OnDesignFileOpened : 
 Public Sub hooks_OnDesignFileOpened(ByVal fileName As String)

Dim bakFilePath As String

' use only in openroads / openrail
If (ActiveWorkspace.ConfigurationVariableValue("_ENGINENAME") = "OpenRoadsDesigner" _
 Or ActiveWorkspace.ConfigurationVariableValue("_ENGINENAME") = "OpenRailDesigner") Then

' look for OpenRoads/OpenRail update 12
 If (ActiveWorkspace.ConfigurationVariableValue("_USTN_PRODUCT_VERSION_MAJOR") = "12") Then

' set bak file path
 bakFilePath = fileName + ".bak"
 
 ' look for civil bak file and delete it
 If (CheckFileExists(bakFilePath)) Then
 Kill (bakFilePath)
 End If
 
 End If
 
End If

End Sub 
 Here is the code for CheckFileExists : 
 Function CheckFileExists(filePath As String) As Boolean

Dim strFileExists As String

strFileExists = Dir(filePath)

' check file exists
If strFileExists = "" Then
 CheckFileExists = False
Else
 CheckFileExists = True
End If

End Function 
 Tested this in OpenRoads and OpenRail. Works well.

Disable Automatic Backup When Upgrading Civil Model

Top Replies