连接FTP服务器 (“*.67.*.214”,
“*”,
“*.”, 21,
)FTP置现行目录 (“\web\Admin\”)FTP目录列表 (“*.*”, , 文件, , ,
)
计次循环首 (取数组成员数 (文件
), 计次
)
如果真 (计次 >
取数组成员数 (文件
))

跳出循环 ()
列表框1.加入项目 (文件 [计次] + #换行符, )
计次循环尾 ()变量名 | 类 型 | 静态 | 数组 | 备 注 |
文件名 | 文本型 | | |
目录 | 文本型 | | |
文件名 =
“\web\Admin\” + 列表框1.
取项目文本 (列表框1.现行选中项
)目录 =
取特定目录 ( #系统桌面 ) + 列表框1.
取项目文本 (列表框1.现行选中项
)信息框 (文件名 +
#换行符 + 目录, 0, ,
)_启动窗口.标签2.标题 =
“正在下载...”延迟 (1
)
判断 (FTP文件下载 (文件名, 目录,
) =
真)
_启动窗口.标签2.标题 =
“下载完成.”
返回 ()
_启动窗口.标签2.标题 =
“下载失败.”

变量名 | 类 型 | 静态 | 数组 | 备 注 |
文件名 | 文本型 | | |
目录 | 文本型 | | |
ss | 文本型 | | 0 |
tt | 整数型 | | |
文件名 =
“\web\Admin\” + 列表框1.
取项目文本 (列表框1.现行选中项
)目录 =
取特定目录 ( #系统桌面 ) + 列表框1.
取项目文本 (列表框1.现行选中项
)信息框 (文件名 +
#换行符 + 目录, 0, ,
)ss =
分割文本 (文件名 + 目录,
#换行符, )调试输出 (FTP文件下载 (ss
[1
], ss
[2
],
))