一、使用 API 函数 URLDownloadToFile,下载网页文件(也可以是图片等其他文件)到硬盘 Dim nUrl As String, F As String, S As Long nUrl = "http://www.baidu.com/img/baidu_logo.gif":F = App.Path & "\My-1.bmp" '下载百度图片 S = URLDownloadToFile(0, nUrl, F, 0, 0) '下载文件,0 ...
一、使用 API 函数 URLDownloadToFile,下载网页文件(也可以是图片等其他文件)到硬盘 Dim nUrl As String, F As String, S As Long nUrl = "http://www.baidu.com/img/baidu_logo.gif":F = App.Path & "\My-1.bmp" '下载百度图片 S = URLDownloadToFile(0, nUrl, F, 0, 0) '下载文件,0 ...