状态标签.标题 ＝ “正在获取目录列表,请稍候...”
状态标签.刷新显示 () ' 立即显示改变后的标题
数目 ＝ FTP目录列表 (“*.*”, , 文件名, 文件属性, 文件尺寸, 文件时间)
' 填充目录
现行目录 ＝ FTP取现行目录 ()
.如果真 (现行目录 ≠ “/”)
远程文件框.插入表项 (, , 0, , , 0) ' 如果不是根目录,则插入到父目录的特殊表项
.如果真结束
.计次循环首 (数目, 容器1)
.如果真 (位与 (文件属性 [容器1], #子目录) ≠ 0)
名称 ＝ 文件名 [容器1]
.如果真 (取文本左边 (名称, 1) ≠ “.”)
索引 ＝ 远程文件框.插入表项 (, 名称, 1, , , 1)
远程文件框.置标题 (索引, 2, 到文本 (文件时间 [容器1]))
上一篇 模糊搜索工具开源
下一篇 程序关闭时信息框询问是否关闭