取网络文件尺寸
.版本 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)
页:
[1]