7,763
社区成员
发帖
与我相关
我的任务
分享
Private Declare Function URLDownloadToFile Lib "urlmon" Alias _
"URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal _
szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As
Long
'------------------------------------------------------------
Public Function DownloadFromUrl(ByVal strFullUrl As String, _
ByVal strSaveFile As String) as Boolean
Dim RetVal As Long
RetVal = URLDownloadToFile(0, strFullUrl, strSaveFile, 0, 0)
'Operation succeeded
If RetVal = 0 Then DownloadFromUrl = True
End Function