使用VB.NET下载Google Drive/OneDrive文件时出现空文件问题求助

问题根源 #

• Google Drive/OneDrive的普通共享链接是网页预览/跳转地址，并非直接文件下载链接，用My.Computer.Network.DownloadFile会下载网页内容而非目标文件。
• 即使是所谓的"直接链接"，云存储服务可能会因为请求头缺失、权限验证或重定向处理不足，返回空文件或错误内容。
• My.Computer.Network.DownloadFile对HTTP重定向、自定义请求头的支持有限，无法适配云存储的特殊下载逻辑。

一、转换Google Drive共享链接为有效下载链接 #

如果文件是公开共享的：

1. 普通共享链接格式：https://drive.google.com/file/d/[FILE_ID]/view?usp=sharing
2. 转换为直接下载链接：https://drive.google.com/uc?export=download&id=[FILE_ID]
   • 替换[FILE_ID]为原链接中d/与/view之间的字符串（例如原链接https://drive.google.com/file/d/123abc/view，则FILE_ID是123abc）

二、转换OneDrive共享链接为有效下载链接 #

针对OneDrive的共享链接，有两种简单转换方式：

1. 对于https://onedrive.live.com/view?resid=XXX格式的链接，将view替换为download，得到https://onedrive.live.com/download?resid=XXX
2. 对于短链接https://1drv.ms/t/XXX，可以先在浏览器打开获取完整链接，再按第一种方式修改

三、使用HttpClient替代My.Computer.Network.DownloadFile（更可靠） #

My.Computer.Network.DownloadFile功能老旧，改用HttpClient可更好处理重定向和请求头，代码示例：

Imports System.Net.Http
Imports System.IO

Private Async Sub btnDownload_Click(sender As Object, e As EventArgs) Handles btnDownload.Click
    ' 替换为转换后的直接下载链接
    Dim downloadUrl As String = "https://drive.google.com/uc?export=download&id=你的文件ID"
    ' 替换为本地保存路径
    Dim savePath As String = Environment.GetFolderPath(Environment.SpecialFolder.Desktop) & "\file1.txt"

    Using httpClient As New HttpClient()
        ' 添加User-Agent避免被云存储拦截
        httpClient.DefaultRequestHeaders.UserAgent.ParseAdd("Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/114.0.0.0 Safari/537.36")
        
        ' 下载文件字节并保存
        Dim fileContent As Byte() = Await httpClient.GetByteArrayAsync(downloadUrl)
        Await File.WriteAllBytesAsync(savePath, fileContent)
    End Using
End Sub

• 异步方法避免阻塞UI线程，提升体验
• 添加User-Agent模拟浏览器请求，防止云存储服务拒绝无标识的请求

四、验证步骤 #

1. 先将转换后的链接复制到浏览器，确认能直接下载文件（若跳转到网页，说明链接转换错误）
2. 确保文件设置为公开可下载（私有文件需要额外的OAuth2授权，不适合简单下载场景）

内容的提问来源于stack exchange，提问作者solfinker