GetSpoolFileメソッド

帳票システム構築支援　uCosminexus EUR　uCosminexus EUR Print Manager 帳票出力

指定したジョブIDの蓄積ファイルを指定したパスに取得します。

作成されるファイル名は，SpoolFileNameプロパティで出力された蓄積ファイル内の格納ファイル名になります。ただし，格納ファイル名と同一名のファイルが指定したパスにある場合は，上書きされます。蓄積ファイルの取得については，「15.5　蓄積ファイル」を参照してください。

GetSpoolFileメソッドは，拠点サーバ上の蓄積ファイル内の格納ファイルをOutputFilePathプロパティで指定されたフォルダに出力が終了した時点で呼び出し元に制御が戻ります。

実行時にエラーが発生した場合，Err.Numberプロパティに終了コード，Err.Descriptionプロパティにメッセージが設定されます。

' GetSpoolFile実行
Private Sub SUB_GetSpoolFile()
    Err.Clear
    On Error GoTo Err_Trap
    List5.Clear
  
    Dim objEURPMLS
        
    Set objEURPMLS = CreateObject("EURPMLS.Exec")
    
    objEURPMLS.ServerAddress = "255.255.***.***"
    objEURPMLS.SearchJobID = "EUR200605190837031560000001******008"
    ''取得フォルダの設定
    objEURPMLS.OutputFilePath = "c:\\tmp"
    ''取得実行
    Call objEURPMLS.GetSpoolFile
  
Err_Trap:
    List5.AddItem "GetAttr Err.Number=(" & Err.Number & ")"
    List5.AddItem "GetAttr Err.Description=(" & Err.Description & ")"
    
    Set objEURPMLS = Nothing
   
End Sub