Hitachi

EUR 帳票出力 リファレンス EUR Server編


DeleteSpoolFileメソッド

指定したジョブIDのスプールデータを削除したり,蓄積期限を経過したスプールデータを削除したりします。スプールデータの削除,および蓄積期限切れスプールデータの一括削除については,マニュアル「EUR 帳票出力 機能解説 EUR Server編」を参照してください。

〈このページの構成〉

形式

DeleteSpoolFile()

パラメタ

なし

解説

DeleteSpoolFileメソッドは,スプールサーバ上のスプールデータ内の削除が終了した時点で呼び出し元に制御が戻ります。

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

戻り値

なし

データ型

Empty

呼び出し例

' DeleteSpoolFile実行
Private Sub SUB_DeleteSpoolFile()
    Err.Clear
    On Error GoTo Err_Trap
    List5.Clear
    
    Dim objEURPMLS
    Dim JobID(3) As String
        
    Set objEURPMLS = CreateObject("EURPMLS.Exec")
    
    objEURPMLS.ServerAddress = "255.255.***.***"
    ''削除種別=「通常」の設定
    If 削除種別 = "通常" Then
        objEURPMLS.DeleteKind = 0
        
        ''ジョブIDの設定
        Dim lstSearchJobID(3) As String
        
        lstSearchJobID(0) = "E00200605291249433190000001******004"
        lstSearchJobID(1) = "E00200605291252460280000001******005"
        lstSearchJobID(2) = "E00200605291252461380000001******006"
        lstSearchJobID(3) = "E00200605291252462630000001******007"
    
        objEURPMLS.SearchJobID = lstSearchJobID
    
    ElseIf 削除種別 = "一括" Then
        ''削除種別=「期限切れ一括削除」の設定
        objEURPMLS.DeleteKind = 1
    End If
    ''削除実行
    Call objEURPMLS.DeleteSpoolFile
    
Err_Trap:
    List5.AddItem "GetAttr Err.Number=(" & Err.Number & ")"
    List5.AddItem "GetAttr Err.Description=(" & Err.Description & ")"
    
    Set objEURPMLS = Nothing
    
End Sub