在 VB.Net 中使用后台智能传输 (BITS)

【问题标题】：Using Background Intelligent Transfer (BITS) with VB.Net在 VB.Net 中使用后台智能传输 (BITS)
【发布时间】：2012-03-03 14:12:05
【问题描述】：

我正在尝试使用 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 工作管理的整个事情，而且我找不到一个完整的例子来说明管理将如何，请我需要帮助。

【问题讨论】：

标签： vb.net microsoft-bits

【解决方案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

【讨论】：