0

我正在使用 VB 2010,并且正在使用 My.Computer.Network.DownloadFile 方法下载列表框中列出的所有文件,大约 1000 个文件。

成功下载几个文件后,下载卡在下一个文件上,可能会下载到任何百分比。但下载几个文件后会重复。我已启用 UI 并在取消时设置 DoNothing。所以我需要取消跳转到下一个文件..有什么解决方案?

这是代码

    Private Sub btnDLFile2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnDLFile2.Click
    For i As Integer = 0 To lstReapedLinks.Items.Count - 1


        Dim targetFile As String = lstReapedLinks.Items(i).ToString
        Dim destFile As String = "e:\dls\files\" & i & ".jpg"

        lblDLFile.Text = "Downloading " & targetFile

        My.Computer.Network.DownloadFile(targetFile, destFile, "", "", True, 60000, True, FileIO.UICancelOption.DoNothing)

    Next
End Sub
4

1 回答 1

0

您是从 Web 服务器下载这些文件吗?

如果是这样,请尝试使用WebClient.DownloadFile- 您需要将其包装起来try{...}catch{...}以防万一。

Import System.Net

Dim fileReader As New WebClient()
dim fileAddress = "http://www.where-ever.com/TheFileYouWant.jpg"
fileReader.DownloadFile(fileAddress, "c:\YourSaveLocation\" + your-new-filename)
于 2013-04-30T15:38:06.650 回答