Public Declare Function DoFileDownload Lib "shdocvw.dll" _
(ByVal lpszFile As String) As Long
Public 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 DownLoadFile(strURL As String, strFileName As String)
Dim lngRetVal As Long
If strFileName = vbNullString Then
lngRetVal = DoFileDownload(StrConv(strFileName, vbUnicode))
If lngRetVal = 0 Then DownLoadFile = True
Else
lngRetVal = URLDownloadToFile(0, strURL, strFileName, 0, 0)
If lngRetVal = 0 Then DownLoadFile = True
End If
End Function
|