将png下载到磁盘会创建损坏的文件

Question

在我的项目中，我想从URL下载png文件并将其保存到磁盘。

我有一个图像的URL，可以毫无问题地将其加载到Web浏览器中。但是，当我使用Access下载并保存该文件时，它会保存一个“ a”文件，但似乎没有任何图像。它创建的每个文件均为167kb，我无法使用图形查看器（例如XnViewMP）查看它们。

当我使用PE Studio加载创建的文件时，它说缺少MZ签名（我不确定这意味着什么）。>>

我也尝试过在本地网络服务器上使用.ico文件进行此操作，并且存在相同的问题。

这是我用来下载图像文件的代码。

Public Function DownloadFile(whaturl As String, whatdestination As String) As Boolean

    Dim newfilepath
    Dim success As Boolean

    Dim WinHttpReq: Set WinHttpReq = CreateObject("Microsoft.XMLHTTP")
    WinHttpReq.Open "GET", whaturl, False
    WinHttpReq.Send

     If WinHttpReq.Status = 200 Then
        Dim oStream: Set oStream = CreateObject("ADODB.Stream")
        oStream.type = 1    '1 is binary
        oStream.Open
        oStream.Write WinHttpReq.ResponseBody

        oStream.SaveToFile whatdestination, 2 ' 1 = no overwrite, 2 = overwrite
        oStream.Close
        success = True
    Else
        success = False
    End If

    DownloadFile = success

End Function
[也许有人可以告诉我为什么这段代码似乎无法下载png文件？我也尝试过.ico文件，并且有同样的问题。也许有人可以帮助我使用此代码？

在我的项目中，我想从URL下载png文件并将其保存到磁盘。我有图片的网址，可以毫无问题地将其加载到Web浏览器中。但是，当我使用Access下载此文件时...

Answer 1

您正在努力。使用如下函数：