A download document program in VB lanes, with Microsoft. XMLHTTP and download documents is no problem now, but want to access the server document properties, such as the date of last update, document size, etc., consult your eldest brother,

 Private Sub DownLoadNetFile (ByVal nUrl As String, ByVal nFile As String) 
Dim XmlHttp, (B) As Byte 
The Set XmlHttp=CreateObject (" Microsoft. XmlHttp ") 
XmlHttp. Open "GET", nUrl, False 
XmlHttp. Send 

If XmlHttp. ReadyState=4 Then 
(B)=XmlHttp. ResponseBody 
Open the nFile For Binary As # 1 
Put # 1, and (B) 
Close # 1 
End the If 
The Set XmlHttp=Nothing 
End Sub 

CodePudding user response:

To look up information, has been done, thanks to CSDN!

CodePudding user response:

Help junction post + ceng points,