在VB里弄一個下載檔案的程式,用Microsoft.XMLHTTP,現在下載檔案是沒問題了,但是想獲取服務器上的檔案屬性,如最后更新日期、檔案大小等,請教一下各位大哥。
Private Sub DownLoadNetFile(ByVal nUrl As String, ByVal nFile As String)
Dim XmlHttp, B() As Byte
Set XmlHttp = CreateObject("Microsoft.XMLHTTP")
XmlHttp.Open "GET", nUrl, False
XmlHttp.Send
If XmlHttp.ReadyState = 4 Then
B() = XmlHttp.ResponseBody
Open nFile For Binary As #1
Put #1, , B()
Close #1
End If
Set XmlHttp = Nothing
End Sub
uj5u.com熱心網友回復:
自己找了一下資料,已經搞定。感謝CSDN!uj5u.com熱心網友回復:
幫結帖+蹭分。轉載請註明出處,本文鏈接:https://www.uj5u.com/gongcheng/72168.html
標籤:VB基礎類
上一篇:如何移動檔案夾
