EsbCopyApplication

クライアント上またはサーバー上の既存のアプリケーションを、関連するすべてのデータベースとオブジェクトも含めて、新規アプリケーションにコピーします。アプリケーションがサーバーにコピーされると、新しいアプリケーションが起動します。

構文

            EsbCopyApplication
             (
            hCtx, hSrcCtx, AppName, nAppName
            )
ByVal 
            hCtx
                 As Long
ByVal 
            hSrcCtx
              As Long
ByVal 
            AppName
              As String
ByVal 
            nAppName
             As String

パラメータ	説明
hCtx	VB APIコンテキスト・ハンドル。
hSrcCtx	使用されていません。hCtxと同じになります。
AppName	コピーする既存のアプリケーションの名前。
nAppName	新規アプリケーションの名前。アプリケーション名の制限を参照してください。

備考

クライアント・アプリケーションをコピーすると、ローカル・アプリケーションのディレクトリとコンテンツもコピーされます。
この関数は、クライアント・アプリケーションをクライアント上の新規アプリケーションにコピーする場合、またはサーバー・アプリケーションを同じサーバー上の新規アプリケーションにコピーする場合にのみ使用できます。EsbCopyObject()を使用して、異なるサーバー間でアプリケーションをコピーします。

戻り値

なし。

アクセス

サーバー・アプリケーションの場合、呼出し元はアプリケーションの作成/削除/編集権限(ESB_PRIV_APPCREATE)を持っている必要があります。

例

         Declare Function EsbCopyApplication Lib "ESBAPIN" (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 Sub