如何覆盖下载的文件vb.net

Question

我正在制作一个自动文件下载器，当我按下按钮时，我需要它重新下载并覆盖文件。

这是我的代码：

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
  My.Computer.Network.DownloadFile _
    ("http://www.randomurl.com/randomfile.txt", _
    Path.Combine(Environment.GetFolderPath( _
    Environment.SpecialFolder.ApplicationData), _
    "test/randomfile.txt"))
End Sub

Answer 1

DownloadFile有一个重载，它允许覆盖先前的文件

 My.Computer.Network.DownloadFile 
       (address, destinationFileName, userName,
        password, showUI, connectionTimeout, overwrite)

从MSDN

• 地址=字符串或Uri。 要下载的文件的路径，包括文件名和主机地址。 需要。
• destinationFileName =字符串。 文件名和下载文件的路径。 需要。
• userName =字符串。 要验证的用户名。 默认值为空字符串“”。
• 密码= String.Password进行身份验证。 默认值为空字符串“”。
• showUI =布尔值。指定是否显示操作进度。 默认值为False。
• connectionTimeout = Int32。 超时时间，以毫秒为单位。 默认值为100秒。
• overwrite =布尔值。 指定是否覆盖现有文件。 默认值为False。

因此，您可以通过这种方式更改代码

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
  My.Computer.Network.DownloadFile _
    (address := "http://www.randomurl.com/randomfile.txt", _
    destinationFileName := Path.Combine(Environment.GetFolderPath( _
    Environment.SpecialFolder.ApplicationData), _
    "test/randomfile.txt"), _
    userName := string.Empty, password := string.Empty, _
    showUI := False, connectionTimeout := 100000, _
    overwrite := True)
End Sub

Answer 2

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    Dim uri As System.Uri = New System.Uri("http://www.randomurl.com/randomfile.txt")
    Dim webclient As System.Net.WebClient = New System.Net.WebClient()

    Dim path As String = New String(System.IO.Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData), "test\\randomfile.txt"))
    Dim fileInfo As System.IO.FileInfo = New System.IO.FileInfo(path)
    If Not System.IO.Directory.Exists(fileInfo.Directory.FullName) Then
        System.IO.Directory.CreateDirectory(fileInfo.Directory.FullName)
    End If

    AddHandler webclient.DownloadFileCompleted, AddressOf webclient_DownloadDataCompleted

    webclient.DownloadFileAsync(uri, path)

End Sub


Private Sub webclient_DownloadDataCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.AsyncCompletedEventArgs)

    MessageBox.Show("Your download has completed.")

End Sub

（编辑-更改为显示注释中要求的异步方法）

请注意，如果该文件存在，它将被覆盖-> http://msdn.microsoft.com/zh-cn/library/ez801hhe(v=VS.80).aspx