如何获取网上指定文件的相关属性（如：大小,修改时间)？

Question

我在程序中用Inet控件下载网上文件，但我想在下载前检测一下网上文件的大小和修改时间,还有为了能用进度条显示下载过程我还想能随时检测出当前下载的文件大小？用其他方法也可以。

Answer 1

Last-modified
 返回最后一次修改文档的日期和时间。返回的数据格式为：Wednesday, 27-April-96 19:34:15 GMT。 
Content-length
 返回数据的字节长度。 
例:
Inet1.GetHeader("Last-modified")

Answer 2

Last-modified确实能检测出属性，但它是在
b()=Inet1.OpenURL(strURL, icByteArray)
Inet1.GetHeader("Last-modified")
下载后检测可我想在下载前就检测到，还请赐教。

Answer 3

Private Sub Form_Load()
    Me.Inet1.Execute "http://www.csdn.net", "HEAD" ' <---- 用Head方法
    Do Until Me.Inet1.StillExecuting = False
        DoEvents
    Loop
    MsgBox Inet1.GetHeader("Content-length")End Sub