ファイルをInboxにコピーするVisual Basicスクリプト

次のスクリプトは、Inboxにファイルをコピーする方法を示します:

************************************************************************************

'REVIEW INPUT PARAMETERS

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

If WScript.Arguments.Count <> 5  Then

       Wscript.Echo "You must supply 5 runtime variables." & vbNewLine & "Usage: HFM_LOAD.vbs LoadID CSS_Token OracleInstancePath JavaHomePath OLE_DB_PROVIDER"

WSCript.Quit -1

Else

       LoadID = Wscript.Arguments.Item(0)

       CSSToken = WScript.Arguments.Item(1)

       OracleInstancePath = WScript.Arguments.Item(2)

       JavaHomePath = WScript.Arguments.Item(3)

	Provider = WScript.Arguments.Item(4)

End If

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

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

'Initialize FDMEE VB API

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

Set objFDMAPI = CreateObject("fdmapi.clsAppServerDM")

WScript.Echo "FDMEE VB API created."

blnInit = objFDMAPI.fInitializeMainAPI(CStr(LoadID), CStr(CSSToken), CStr(OracleInstancePath), CStr(JavaHomePath), CStr(Provider))

If blnInit Then 

       WScript.Echo "FDMEE VB API initialized."

Else

       WScript.Quit -1

       WScript.Echo "fInitializeMainAPI failed."

End If

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

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

'Sample Code

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

If objFDMAPI.API.State.LocName = "MT_COMMA7" Then

       ************************************************************************************

       'Copy file to Inbox

       ************************************************************************************

       strFileDir = "C:\"

       strFileName = "CopyThisFile.txt"

       'Create FileSystemObject

       Set objFSO = CreateObject("Scripting.FileSystemObject")

       If objFSO.FileExists(strFileDir & strFileName) Then

              'Copy the file

       End If

       Set objFSO = Nothing

End If

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