php 取2g文件大小,取ftp文件大小，大于2G的文件返回负数

.版本 2

.程序集 窗口程序集_启动窗口

.程序集变量 FTP, 类_FTP

.支持库 iext

.支持库 spec

.子程序 填充文件框

.局部变量 文件名, 文本型, , "0"

.局部变量 文件尺寸, 长整数型, , "0"

.局部变量 文件属性, 整数型, , "0", 1、#只读文件； 2、#隐藏文件；  4、#系统文件； 16、#子目录；32、#存档文件

.局部变量 文件时间, 日期时间型, , "0"

.局部变量 数目, 整数型

.局部变量 容器1, 整数型

.局部变量 名称, 文本型

.局部变量 索引, 整数型

.局部变量 现行目录, 文本型

.局部变量 路径, 文本型

.局部变量 临时_尺寸, 长整数型

超级列表框1.全部删除 ()

路径 ＝ 取完整路径 () ＋ “/” ＋ 树型框1.取项目文本 (树型框1.现行选中项)

数目 ＝ FTP.目录列表 (路径 ＋ “/*.*”, , 文件名, 文件属性, 文件尺寸, 文件时间)

调试输出 (文件尺寸)

' 填充目录

.计次循环首 (数目, 容器1)

.如果真 (位与 (文件属性 [容器1], #子目录) ≠ 0)

名称 ＝ 文件名 [容器1]

.如果真 (取文本左边 (名称, 1) ≠ “.”)

索引 ＝ 超级列表框1.插入表项 (, 名称, , , , )

超级列表框1.置标题 (索引, 2, 时间到文本 (文件时间 [容器1], ))

超级列表框1.置标题 (索引, 3, “文件夹”)

.如果真结束

.如果真结束

.计次循环尾 ()

' 填充文件

.计次循环首 (数目, 容器1)

.如果真 (位与 (文件属性 [容器1], #子目录) ＝ 0)

索引 ＝ 超级列表框1.插入表项 (, 文件名 [容器1], 2, , , 2)

临时_尺寸 ＝ 文件尺寸 [容器1]

调试输出 (到长整数 (文件尺寸 [容器1]))

.判断开始 (文件尺寸 [容器1] ＜ 0)  ' 负数

超级列表框1.置标题 (索引, 1, “>2GB”)

.判断 (文件尺寸 [容器1] ÷ 1024 ＜ 1)

超级列表框1.置标题 (索引, 1, 取文本左边 (到文本 (临时_尺寸), 4) ＋ “B”)

.判断 (文件尺寸 [容器1] ÷ 1048576 ＜ 1)

超级列表框1.置标题 (索引, 1, 取文本左边 (到文本 (临时_尺寸 ÷ 1024), 4) ＋ “KB”)

.判断 (文件尺寸 [容器1] ÷ 1073741824 ＜ 1)

超级列表框1.置标题 (索引, 1, 取文本左边 (到文本 (临时_尺寸 ÷ 1048576), 4) ＋ “MB”)

.默认

超级列表框1.置标题 (索引, 1, 取文本左边 (到文本 (临时_尺寸 ÷ 1073741824), 4) ＋ “GB”)

.判断结束

超级列表框1.置标题 (索引, 2, 到文本 (文件时间 [容器1]))

.如果真结束

.计次循环尾 ()