VB.Netでバックグラウンドインテリジェント転送（BITS）を使用する

Question

多くのコンピュータからサーバーにファイルをアップロードするのにMS BITS（バックグラウンドインテリジェント転送サービス）を使用しようとしていますが、読んだ便利な例はStackOverFlowであり、ここにある：

Imports SharpBits.Base   
Using b As New BitsManager() 
    mynewjob = b.CreateJob("jobname", JobType.Upload) 
    mynewjob.AddFile("\\ServerName\BitsUploads\File.txt", "C:\File.exe") 
    mynewjob.Resume() 
End Using 

しかし率直に言って、私はBITSジョブ管理についての全体のことを処理する方法がわからない、と私は完全な例を見つけることができませんでしたが、管理がそうだろう方法を示し、私は助けを必要としてくださいそのことについて。

Answer 1

最後に回答が見つかりました 単純に、 まず、JobProgressTimeoutを値に追加します。 次のように、コードをループに入れて、BITSジョブの実行状況を確認してください。

Dim oJobStatus As System.Net.BITS.JobState = 0 
    oJobStatus = sJobStatus 

    Try 
     If oJobStatus = System.Net.BITS.JobState.Transferred Then 
      MsgBox("Job transfered") 
      Return True 
     End If 

     If oJobStatus = System.Net.BITS.JobState.Acknowledged Then 
      MsgBox("Job transfered") 
      Return True 
     End If 

     If oJobStatus = System.Net.BITS.JobState.Error Then 

      MsgBox("Job cancelled") 
      Return True 
     End If 

     If oJobStatus = System.Net.BITS.JobState.Cancelled Then 
      MsgBox("Job cancelled") 
      Return True 
     End If 

     Return True 
    Catch ex As Exception 
     msgbox(ex.Message) 
     Return True 
    End Try