GetSpoolFileAttribute()

なし

GetSpoolFileAttributeメソッドは，拠点サーバにある蓄積ファイルの属性情報の取得が終了した時点で呼び出し元に制御が戻ります。

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

なし

Empty

' GetSpoolFileAttribute実行
Private Sub SUB_GetSpoolFileAttribute()
    Err.Clear
    On Error GoTo Err_Trap
    List5.Clear
  
    Dim objEURPMLS
        
    Set objEURPMLS = CreateObject("EURPMLS.Exec")
    
    objEURPMLS.ServerAddress = "255.255.***.***"
    objEURPMLS.SearchJobID = "EUR200605291252462630000001******007"
    Call objEURPMLS.GetSpoolFileAttribute
  
Err_Trap:
    List5.AddItem "Err.Number=(" & Err.Number & ")"
    List5.AddItem "Err.Description=(" & Err.Description & ")"
    
    If Err.Number = 0 Then
        List5.AddItem ""
        List5.AddItem "★★★★★ 結果出力ココカラ ★★★★★"
        List5.AddItem "格納ファイル名：" & objEURPMLS.SpoolFileName
        List5.AddItem "ページ数：" & objEURPMLS.PageNum
        ''その他参照したい情報をプロパティから取得する
        List5.AddItem "★★★★★ 結果出力ココマデ ★★★★★"
    End If
  
    Set objEURPMLS = Nothing
  
End Sub