在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