FTP登录并获取所有文件及目录

.如果真 (超级列表框1.取标题 (超级列表框1.现行选中项, 2) ＝ “文件夹”)
目录 ＝ “\”
状态条1.置文本 (3, “正在获取信息...”)
.判断开始 (超级列表框1.取标题 (超级列表框1.现行选中项, ) ＝ “..”)
.如果 (取数组成员数 (当前目录) ＜ 1)
返回 ()
.否则
删除成员 (当前目录, 取数组成员数 (当前目录), )
.计次循环首 (取数组成员数 (当前目录), i)
目录 ＝ 目录 ＋ 当前目录 [i] ＋ “\”
.计次循环尾 ()
.如果结束

.判断 (超级列表框1.取标题 (超级列表框1.现行选中项, 0) ＝ “.”)
清除数组 (当前目录)
.默认
加入成员 (当前目录, 超级列表框1.取标题 (超级列表框1.现行选中项, 0))
.计次循环首 (取数组成员数 (当前目录), i)
目录 ＝ 目录 ＋ 当前目录 [i] ＋ “\”
.计次循环尾 ()
.判断结束
编辑框4.内容 ＝ 目录
.如果 (FTP置现行目录 (目录))
启动线程 (&获取文件, , )