易语言 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]))

.如果真结束.计次循环尾 ()

调用格式： 〈整数型〉 对象．取目录列表 （［文本型 欲列出的文件］，［文本型变量/变量数组 存放文件名的数组变量］，［整数型变量/变量数组 存放文件属性的数组变量］，［长整数型变量/变量数组 存放文件尺寸的数组变量］，［日期时间型变量/变量数组 存放文件时间的数组变量］） - 网络传送支持库->FTP辅助对象

英文名称：FtpGetDirList

返回FTP服务器上指定目录内的所有匹配文件和子目录信息。成功返回被找到的文件和子目录的数目，失败返回 -1失败的原因有可能是FTP服务器的目录结构暂时不被支持。本命令为初级对象成员命令。

参数<1>的名称为“欲列出的文件”，类型为“文本型（text）”，可以被省略。可以包含路径，可以使用多字符 (*) 和单字符 (?) 通配符来指定多重文件及目录。

参数<2>的名称为“存放文件名的数组变量”，类型为“文本型（text）”，可以被省略，提供参数数据时只能提供变量及变量数组。提供参数数据时只能提供变量数组。在命令执行完毕后，本变量数组内被顺序填入所找到的匹配文件和子目录名称。变量数组内原有数据被全部销毁，变量数组的维数被自动调整为所找到的文件数目。

参数<3>的名称为“存放文件属性的数组变量”，类型为“整数型（int）”，可以被省略，提供参数数据时只能提供变量及变量数组。当前不被支持,留做以后扩展。

参数<4>的名称为“存放文件尺寸的数组变量”，类型为“长整数型（int64）”，可以被省略，提供参数数据时只能提供变量及变量数组。提供参数数据时只能提供变量数组。在命令执行完毕后，本变量数组内被顺序填入所找到的匹配文件的尺寸，并与文件名数组成员一一对应。

参数<5>的名称为“存放文件时间的数组变量”，类型为“日期时间型（date）”，可以被省略，提供参数数据时只能提供变量及变量数组。提供参数数据时只能提供变量数组。在命令执行完毕后，本变量数组内被顺序填入所找到的匹配文件的最后修改时间，并与文件名数组成员一一对应。变量数组内原有数据被全部销毁，变量数组的维数被自动调整为所找到的文件数目。

操作系统需求： Windows、Linux

.版本 2

.支持库 downlib

.支持库 iext

.支持库 internet

.程序集变量 上传文件, FTP上传对象

.程序集变量 参数, 任务参数

.子程序 上传

参数.类型 ＝ 2 ＋ 3 ' 参数详见提示

参数.传送类型 ＝ 1

参数.文件地址 ＝ “ftp://” ＋ FTP地址 ＋ “/” ＋ FTP账号 ＋ “/1/1.txt” ' 这里是FTP服务器路径，可以修改。

参数.用户名 ＝ FTP账号

参数.用户密码 ＝ FTP密码

参数.本地文件路径 ＝ “c:\1.txt” ' 这里的文件名是需要上传的文件路径，可以修改。

参数.线程等待超时 ＝ 1000

透明标签1.标题 ＝ “正在连接服务器...”

透明标签2.标题 ＝ “正在上传文件...”

.判断开始 (连接FTP服务器 (FTP地址, FTP账号, FTP密码, , ))

透明标签1.标题 ＝ “已连接！”

输出调试文本 (FTP取现行目录 () ＋ “aaa”)

.默认

透明标签1.标题 ＝ “连接失败！”

返回 ()

.判断结束

' 双线内代码为测试服务器是否可用，可以不需要

上传文件.上传文件 (参数)

---