易语言读取FTP指定目录里的txt文件名到列表框

.版本 2
.支持库 internet
.子程序 _列表框1_双击选择
.如果 (连接FTP服务器 (FTP, USR, PAS, , ))
FTP置现行目录 () ' 设为你指定的目录
.如果 (FTP文件下载 (列表框1.取项目文本 (列表框1.现行选中项), “.\temp.txt”, ))
编辑框1.内容 ＝ 到文本 (读入文件 (“.\temp.txt”))
.否则
信息框 (“FTP文件下载失败”, 16, “错误”)
.如果结束
断开FTP服务器 ()
.否则
信息框 (“连接FTP服务器失败”, 16, “错误”)
.如果结束

.子程序 _按钮1_被单击
.局部变量 文件列表, 文本型, , "0"
.局部变量 cnt, 整数型
.局部变量 tmp, 整数型
.如果 (连接FTP服务器 (FTP, USR, PAS, , ))
FTP置现行目录 () ' 设为你指定的目录
cnt ＝ FTP目录列表 (“*.txt”, , 文件列表, , , )
列表框1.清空 ()
.计次循环首 (cnt, tmp)
列表框1.加入项目 (文件列表 [tmp], )
处理事件 ()
.计次循环尾 ()
断开FTP服务器 ()
.否则
信息框 (“连接FTP服务器失败”, 16, “错误”)
.如果结束