易语言FTP下载文件夹里的全部文件

.版本 2
.支持库 internet

.程序集 窗口程序集1
.程序集变量 目录, 文本型, , "0"
.程序集变量 cnt, 整数型
.程序集变量 tmp, 整数型

.子程序 _按钮1_被单击

.如果真 (连接FTP服务器 (“Ftp IP”, “账号”, “密码”, 21, ) ＝ 真)
编辑框1.内容 ＝ 编辑框1.内容 ＋ “Ftp已连接”
.如果真结束
.如果真 (FTP置现行目录 (“你要进入的目录”) ＝ 真)
编辑框1.内容 ＝ 编辑框1.内容 ＋ #换行符 ＋ “进入目录”
.如果真结束
cnt ＝ FTP目录列表 (“*.*”, , 目录, , , )
.计次循环首 (cnt, tmp)
编辑框1.内容 ＝ 编辑框1.内容 ＋ #换行符 ＋ 目录 [tmp]
.计次循环尾 ()

.子程序 _按钮2_被单击

编辑框1.内容 ＝ 编辑框1.内容 ＋ #换行符 ＋ “---------------------------------------”
.计次循环首 (cnt, tmp)
FTP文件下载 (目录 [tmp], 取运行目录 () ＋ “/” ＋ 目录 [tmp], )
编辑框1.内容 ＝ 编辑框1.内容 ＋ #换行符 ＋ “下载文件：” ＋ 取运行目录 () ＋ “/” ＋ 目录 [tmp]
.计次循环尾 ()