易语言 ftp的操作

易语言 取出ftp里的所有文件 怎么写代码 只要最简单的就行

.版本 2
.支持库 iext
.支持库 internet

.局部变量 项目类型, 整数型
.局部变量 选中项, 整数型
.局部变量 当前目录, 文本型
.局部变量 容器1, 整数型

选中项 ＝ 远程文件框.现行选中项
.如果真 (选中项 ＝ -1)
返回 ()
.如果真结束
项目类型 ＝ 远程文件框.取表项数值 (选中项)

当前目录 ＝ FTP取现行目录 ()
.判断开始 (项目类型 ＝ 0) ' 是否为到上目录
容器1 ＝ 倒找文本 (当前目录, “/”, , 真)
.如果真 (容器1 ≠ -1)
当前目录 ＝ 取文本左边 (当前目录, 容器1)
.如果真 (当前目录 ≠ “/”)
当前目录 ＝ 取文本左边 (当前目录, 容器1 － 1)
.如果真结束
FTP置现行目录 (当前目录)
填充远程框 ()
.如果真结束

.判断 (项目类型 ＝ 1) ' 是否到子目录
.如果真 (取文本右边 (当前目录, 1) ≠ “/”)
当前目录 ＝ 当前目录 ＋ “/”
.如果真结束
FTP置现行目录 (当前目录 ＋ 远程文件框.取标题 (选中项, ))
填充远程框 ()
.默认

.版本 2
.支持库 iext
.支持库 internet

.子程序 填充远程框
.局部变量 文件名, 文本型, , "0"
.局部变量 文件尺寸, 整数型, , "0"
.局部变量 文件属性, 整数型, , "0"
.局部变量 文件时间, 日期时间型, , "0"
.局部变量 数目, 整数型
.局部变量 容器1, 整数型
.局部变量 名称, 文本型
.局部变量 索引, 整数型
.局部变量 现行目录, 文本型

远程文件框.全部删除 ()

状态标签.标题 ＝ “正在获取目录列表,请稍候...”
状态标签.刷新显示 () ' 立即显示改变后的标题
数目 ＝ FTP目录列表 (“*.*”, , 文件名, 文件属性, 文件尺寸, 文件时间)
' 填充目录
现行目录 ＝ FTP取现行目录 ()
.如果真 (现行目录 ≠ “/”)
远程文件框.插入表项 (, , 0, , , 0) ' 如果不是根目录,则插入到父目录的特殊表项
.如果真结束

.计次循环首 (数目, 容器1)
.如果真 (位与 (文件属性 [容器1], #子目录) ≠ 0)
名称 ＝ 文件名 [容器1]
.如果真 (取文本左边 (名称, 1) ≠ “.”)
索引 ＝ 远程文件框.插入表项 (, 名称, 1, , , 1)
远程文件框.置标题 (索引, 2, 到文本 (文件时间 [容器1]))
.如果真结束

.如果真结束

.计次循环尾 ()
' 填充文件
.计次循环首 (数目, 容器1)
.如果真 (位与 (文件属性 [容器1], #子目录) ＝ 0)
索引 ＝ 远程文件框.插入表项 (, 文件名 [容器1], 2, , , 2)
远程文件框.置标题 (索引, 1, 到文本 (文件尺寸 [容器1]))
远程文件框.置标题 (索引, 2, 到文本 (文件时间 [容器1]))
.如果真结束

.计次循环尾 ()

易语言4.14破解版(含190个全新支持库) http://www.3600gz.cn/viewthread.php?tid=1537 易语言免费入门视频观看地址： http://www.3600gz.cn/viewthread.php?tid=1201 有易语言问题请到这里提问，回答率百分之95以上： http://www.3600gz.cn/

这里代码贴也贴不完，你去官方论坛多逛逛那里好多ftp的模块！下载来了一句代码就调用了～

支持库里面有全部的

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息