純Access VBA從網頁下載文件到本地文件

'純Access VBA從網頁下載文件到本地文件
'作者：tmtony
'來源：Office交流網
Function DownloadFileFromUrl(URL, dest)
    '創建xmlHttp對象
    Set objXMLHTTP = CreateObject("MSXML2.XMLHTTP")
    
    '通過Get方法打開網址下載文件
    objXMLHTTP.Open "GET", URL, False
    objXMLHTTP.send

    '保存文件到本地目録
    If objXMLHTTP.Status = 200 Then '判斷狀態是否200
        '通過adodb stream 將文件保存到本地
        Set objADOStream = CreateObject("ADODB.Stream")
        objADOStream.Open
        objADOStream.Type = 1

        objADOStream.Write objXMLHTTP.responseBody
        objADOStream.Position = 0

        objADOStream.SaveToFile dest
        objADOStream.Close
        Set objADOStream = Nothing
    End If
    '釋放XMLHTTP對象
    Set objXMLHTTP = Nothing

    '下載完成
End Function

調用方式：

DownloadFileFromUrl  "http://www.office-cn.net/test.rar","d:\test\tmprar"