取网络文件尺寸

阿杰

.版本 2

.子程序 GetNetFileSize, 整数型
.参数 path, 文本型
.局部变量 a, 对象
.局部变量 ret, 整数型

' CoInitialize (0)  ' 线程
ret ＝ -1
.如果真 (a.创建 (“MSXML2.XMLHTTP.4.0”, ))
    a.方法 (“open”, “HEAD”, path)
    a.方法 (“send”, )
    延时 (100)
    .如果真 (a.读数值属性 (“readyState”, ) ＝ 4)
        ret ＝ 到数值 (a.文本方法 (“getResponseHeader”, “Content-length”))
    .如果真结束
    a.清除 ()
.如果真结束
' CoUninitialize ()
返回 (ret)