EsbCopyApplication() copies an existing application, either on the client or the server, to a new application, including all associated databases and objects. If the application is copied on the server, the new application is started.
EsbCopyApplication (hCtx, hSrcCtx, AppName, nAppName)
ByVal hCtx As Long ByVal hSrcCtx As Long ByVal AppName As String ByVal nAppName As String
hCtx | Essbase VB API context handle. |
hSrcCtx | Not used - should be same as hCtx. |
AppName | Name of an existing application to copy. |
nAppName | Name of a new application. |
Declare Function EsbCopyApplication Lib "ESBAPIW" (ByVal hCtx As Long, ByVal hSrcCtx As Long, ByVal SrcApp As String, ByVal DestApp As String) As Long Sub ESB_CopyApplication () Dim sts As Long Dim SrcApp As String Dim DestApp As String Dim hSrcCtx As Long hSrcCtx = hCtx SrcApp = "Sample" DestApp = "NewTest" '***************** ' Copy Application '***************** sts = EsbCopyApplication (hCtx, hSrcCtx, SrcApp, DestApp) End SubEsbCopyDatabase()