vu_tuan_manh_linh
linhvtm84@gmail.com
- Tham gia
- 27/2/10
- Bài viết
- 2,635
- Được thích
- 1,902
- Giới tính
- Nam
- Nghề nghiệp
- Kỹ sư Kinh tế Xây dựng
Tôi sử dụng đoạn code sau (sưu tầm) để tải 1 file từ một đường dẫn Dropbox. Tuy nhiên, các file tải về đều có dung lượng giống nhau (lúc thì 570k, lúc thì 598k) và đều bị hỏng, không mở được file. Mọi người chỉ giúp nguyên nhân. Xin cảm ơn!
Tôi đã cố gắng tìm các thiết lập của tài khoản dropbox để không giới hạn dung lượng file được tải, nhưng không thấy.
PHP:
Sub DownloadFile()
Dim FileName As String
Dim myURL As String
Dim i
myURL = "https://www.dropbox.com/s/bjjjiilkxj4g67y/14TCN%2012_2002_Cong%20trinh%20thuy%20loi%20-%20Xay%20va%20lat%20da%20-%20Thi%20cong%20va%20nghiem%20thu.pdf?dl=0"
For i = 1 To Len(myURL)
If Mid(myURL, i, 1) = "/" Then FileName = Right(myURL, Len(myURL) - i)
Next
FileName = Replace(FileName, "%20", " ")
FileName = Replace(FileName, "%", " ")
FileName = Left(FileName, Len(FileName) - 5)
MsgBox FileName
Dim WinHttpReq As Object
Set WinHttpReq = CreateObject("Microsoft.XMLHTTP")
WinHttpReq.Open "GET", myURL, False, "username", "password"
WinHttpReq.send
myURL = WinHttpReq.responseBody
If WinHttpReq.Status = 200 Then
Set oStream = CreateObject("ADODB.Stream")
oStream.Open
oStream.Type = 1
oStream.Write WinHttpReq.responseBody
oStream.SaveToFile "E:\" & FileName, 2
oStream.Close
End If
End Sub
Lần chỉnh sửa cuối: