quocphuoc88
Thành viên thường trực
- Tham gia
- 29/11/10
- Bài viết
- 299
- Được thích
- 228
- Nghề nghiệp
- Kế toán - kiểm toán
Chào Anh/Chị !
Em có đoạn code bên dưới sưu tầm để tải File từ Dropbox, Tuy nhiên hôm nay nó bị dở chứng gì mà không cho tải được nữa, Status luôn là 400 (bad request). Em có tìm hiểu và chuyển sang CreateObject("WinHttp.WinHttpRequest.5.1") cũng cho kết quả tương tự không tải được. Mong Anh/chị giúp em ạ !
Em cảm ơn !
Em có đoạn code bên dưới sưu tầm để tải File từ Dropbox, Tuy nhiên hôm nay nó bị dở chứng gì mà không cho tải được nữa, Status luôn là 400 (bad request). Em có tìm hiểu và chuyển sang CreateObject("WinHttp.WinHttpRequest.5.1") cũng cho kết quả tương tự không tải được. Mong Anh/chị giúp em ạ !
Em cảm ơn !
Mã:
Public Function DownFile(ByVal URL As String, _
ByVal path As String) As Boolean
Dim oHTTP As Object, Chk As Byte
Set oHTTP = CreateObject("MSXML2.serverXMLHTTP.6.0")
With oHTTP
.Open "GET", URL, False
.Send
If .Status = 200 Then
With CreateObject("ADODB.Stream")
.Open
.Type = 1
.write oHTTP.responseBody
.Position = 0
.SaveToFile path, 2 ' 1 = no overwrite, 2 = overwrite
.Close
End With
Else
GoTo Err_
End If
End With
Chk = 1
Err_:
DownFile = (Chk = 1)
Set oHTTP = Nothing
End Function
