Вроде нашел, но еще не проверял
| Код |
|---|
Sub DownloadFile(url As String, filePath As String, _
Optional isBinaryData As Boolean, _
Optional overWriteFile As Boolean, _
Optional attempts As Integer)
Dim WinHttpReq As Object
If IsMissing(attempts) Or attempts <= 0 Then
attempts = 1
End If
On Error GoTo TryAgain
TryAgain:
attempts = attempts - 1
Err.Clear
If attempts > 0 Then
Set WinHttpReq = CreateObject("Microsoft.XMLHTTP")
WinHttpReq.Open "GET", url, False
WinHttpReq.send
If WinHttpReq.Status = 200 Then
Set oStream = CreateObject("ADODB.Stream")
oStream.Open
'type of data: 1 - binary data, 2 - default, text data
oStream.Type = IIf(isBinaryData, 1, 2)
oStream.Write WinHttpReq.responseBody
'overwrite: 1 = no overwrite, 2 = overwrite
oStream.SaveToFile filePath, IIf(overWriteFile, 2, 1)
oStream.Close
End If
End If
End Sub |
Изменено: - 11.11.2015 10:16:58
