在VB.NET中实现从服务器下载文件是一个常见的开发需求，通常涉及HTTP协议、文件流处理以及异常管理等技术，以下将详细介绍实现这一功能的完整流程，包括核心代码示例、关键步骤解析及注意事项。

准备工作与核心思路

在开始编写代码前,需明确以下要点：

1. 服务器文件访问方式：确保服务器文件可通过HTTP/HTTPS直接访问（如URL路径为http://example.com/files/document.pdf），或通过Web API提供下载接口。
2. 权限与安全性：若涉及身份验证，需在请求中添加认证头（如Basic Auth、Bearer Token）。
3. 性能优化：大文件下载需考虑分块读取、异步操作及进度显示，避免阻塞UI线程。

核心思路是通过HttpWebRequest或第三方库（如HttpClient）发起请求，将服务器文件流读取为本地文件流，最终保存到指定路径，以下是两种主流实现方式的对比：

使用HttpWebRequest实现下载

以下是完整的代码示例,包含同步下载、异步下载及进度回调功能：

Imports System.IO
Imports System.Net
Public Class FileDownloader
    ' 同步下载方法（简单直接，但会阻塞UI）
    Public Sub DownloadFileSync(url As String, savePath As String)
        Try
            Dim request As HttpWebRequest = WebRequest.Create(url)
            Using response As HttpWebResponse = request.GetResponse()
                Using stream As Stream = response.GetResponseStream()
                    Using fileStream As FileStream = File.Create(savePath)
                        stream.CopyTo(fileStream)
                    End Using
                End Using
            End Using
            Console.WriteLine("文件下载完成: " & savePath)
        Catch ex As Exception
            Console.WriteLine("下载失败: " & ex.Message)
        End Try
    End Sub
    ' 异步下载方法（推荐，避免UI卡顿）
    Public Async Function DownloadFileAsync(url As String, savePath As String) As Task
        Try
            Using client As New HttpClient()
                Using response As HttpResponseMessage = Await client.GetAsync(url, HttpCompletionOption.ResponseHeadersRead)
                    response.EnsureSuccessStatusCode()
                    Using contentStream As Stream = Await response.Content.ReadAsStreamAsync()
                        Using fileStream As FileStream = File.Create(savePath)
                            Await contentStream.CopyToAsync(fileStream)
                        End Using
                    End Using
                End Using
            End Using
            Console.WriteLine("异步下载完成: " & savePath)
        Catch ex As Exception
            Console.WriteLine("异步下载失败: " & ex.Message)
        End Try
    End Function
    ' 带进度条的异步下载
    Public Async Function DownloadFileWithProgress(url As String, savePath As String) As Task
        Using client As New HttpClient()
            Using response As HttpResponseMessage = Await client.GetAsync(url, HttpCompletionOption.ResponseHeadersRead)
                response.EnsureSuccessStatusCode()
                Dim totalBytes As Long = response.Content.Headers.ContentLength.GetValueOrDefault(-1)
                Dim buffer As Byte() = New Byte(8191) {}
                Dim bytesRead As Integer
                Dim totalRead As Long = 0
                Dim fileStream As FileStream = File.Create(savePath)
                Using contentStream As Stream = Await response.Content.ReadAsStreamAsync()
                    Do
                        bytesRead = Await contentStream.ReadAsync(buffer, 0, buffer.Length)
                        If bytesRead > 0 Then
                            Await fileStream.WriteAsync(buffer, 0, bytesRead)
                            totalRead += bytesRead
                            ' 触发进度更新事件（需在窗体应用中绑定UI）
                            RaiseEvent ProgressChanged(totalRead, totalBytes)
                        End If
                    Loop While bytesRead > 0
                End Using
                fileStream.Close()
            End Using
        End Using
    End Function
    Public Event ProgressChanged(ReadOnly bytesRead As Long, ReadOnly totalBytes As Long)
End Class

关键步骤解析

1. 创建请求对象

   • HttpWebRequest需通过WebRequest.Create(url)初始化，设置超时时间（request.Timeout = 30000）或代理（request.Proxy）。
   • HttpClient推荐使用Using语句确保资源释放，支持设置默认请求头（如client.DefaultRequestHeaders.Authorization）。

2. 处理响应流

   • 使用GetResponseStream()或ReadAsStreamAsync()获取文件流，避免一次性加载大文件到内存。
   • 通过CopyTo或CopyToAsync将流写入本地文件，后者支持异步操作。

3. 异常处理

   • 需捕获WebException（如404、403错误）和IOException（如磁盘空间不足）。
   • 检查HTTP状态码（response.StatusCode），确保请求成功（200-299）。

4. 进度显示

   • 通过Content-Length获取文件总大小，累计已读取字节数计算进度百分比。
   • 在窗体应用中,可通过ProgressChanged事件更新ProgressBar控件。

注意事项

1. 文件路径处理：确保目标目录存在（Directory.CreateDirectory(Path.GetDirectoryName(savePath))）。
2. 大文件支持：避免同步操作导致UI冻结，优先使用异步方法。
3. 网络重试机制：添加重试逻辑（如Policy库），应对网络波动。
4. 安全性：验证URL合法性（防止恶意跳转），对下载文件进行病毒扫描。

相关问答FAQs

Q1: 如何处理需要登录认证的文件下载？
A1: 可在请求中添加认证信息，使用HttpClient时设置DefaultRequestHeaders：

client.DefaultRequestHeaders.Authorization = New AuthenticationHeaderValue("Bearer", "your_token")

或使用HttpWebRequest添加Authorization头：

request.Headers.Add("Authorization", "Basic " & Convert.ToBase64String(Encoding.UTF8.GetBytes("username:password")))

Q2: 下载过程中如何取消操作？
A2: 通过CancellationToken实现取消功能，修改异步方法签名：

Public Async Function DownloadFileAsync(url As String, savePath As String, cancellationToken As CancellationToken) As Task

在调用时传入CancellationTokenSource的Token：

Dim cts As New CancellationTokenSource()
cts.CancelAfter(30000) ' 30秒后自动取消
Await downloader.DownloadFileAsync(url, savePath, cts.Token)

在流读取循环中检查cancellationToken.IsCancellationRequested，及时释放资源。