易飞鸟|易语言实现FTP上传下载

易飞鸟

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
FTP	类_FTP

子程序名	返回值类型	公开	备 注
_按钮_连接_被单击

变量名	类 型	静态	数组	备 注
FTP服务器地址	文本型
用户名	文本型
密码	文本型
端口号	整数型

FTP服务器地址 ＝ 编辑框_地址.内容
用户名 ＝ 编辑框_用户名.内容
密码 ＝ 编辑框_密码.内容
端口号 ＝ 到整数 (编辑框_端口.内容)
判断 (FTP.连接FTP服务器 (FTP服务器地址, 用户名, 密码, 端口号, ))
状态条1.置文本 (1, “FTP连接成功”)
批量_编辑框_保存配置 (_启动窗口, , )
编辑框_路径.内容 ＝ FTP.取现行目录 ()
状态条1.置文本 (1, “FTP连接失败!”)
返回 ()
调试输出 (FTP.取现行目录 ())
取目录列表 ()

子程序名	返回值类型	公开	备 注
取目录列表

变量名	类 型	静态	数组	备 注
文件名数组	文本型		0
时间数组	日期时间型		0
属性数组	整数型		0
尺寸数组	长整数型		0
i	整数型
表项索引	整数型

FTP.目录列表 (, , 文件名数组, 属性数组, 尺寸数组, 时间数组)
超级列表框_远程文件.全部删除 ()
计次循环首 (取数组成员数 (文件名数组), i)
' 调试输出 (FTP.目录取属性 (FTP.取现行目录 () ＋ 文件名数组 [i], ))
如果真 (FTP.目录取属性 (编辑框_路径.内容 ＋ “/” ＋ 文件名数组 [i], ) ＝ 16)
表项索引 ＝ 超级列表框_远程文件.插入表项 (, 文件名数组 [i], 1, , , )
超级列表框_远程文件.置标题 (表项索引, 2, 到文本 (时间数组 [i]))
到循环尾 ()

表项索引 ＝ 超级列表框_远程文件.插入表项 (, 文件名数组 [i], 2, , , )
超级列表框_远程文件.置标题 (表项索引, 1, 到文本 (四舍五入 (尺寸数组 [i] ÷ 1024, 2)) ＋ “KB”)
超级列表框_远程文件.置标题 (表项索引, 2, 到文本 (时间数组 [i]))
计次循环尾 ()

子程序名	返回值类型	公开	备 注
_超级列表框_远程文件_表项被激活

变量名	类 型	静态	数组	备 注
索引	整数型		0
i	整数型
目录名	文本型

索引 ＝ 超级列表框_远程文件.取被选择表项 ()
目录名 ＝ 超级列表框_远程文件.取标题 (索引 [1], 0)
编辑框_路径.内容 ＝ 编辑框_路径.内容 ＋ 目录名 ＋ “/”
FTP.置现行目录 (编辑框_路径.内容)
取目录列表 ()

子程序名	返回值类型	公开	备 注
_按钮_返回_被单击

变量名	类 型	静态	数组	备 注
路径数组	文本型		0
i
路径末尾	文本型

路径数组 ＝ 分割文本 (编辑框_路径.内容, “/”, )
路径末尾 ＝ 路径数组 [取数组成员数 (路径数组)]
如果真 (路径末尾 ＝ “”)
返回 ()

编辑框_路径.内容 ＝ 文本_删右边 (编辑框_路径.内容, 取文本长度 (路径末尾 ＋ “/”))
FTP.置现行目录 (编辑框_路径.内容)
取目录列表 ()

子程序名	返回值类型	公开	备 注
_按钮_上传_被单击

变量名	类 型	静态	数组	备 注
本地文件名	文本型

如果真 (通用对话框1.打开 ())
本地文件名 ＝ 通用对话框1.文件名
进度提示_打开 (文件_取文件名 (本地文件名, 真) ＋ “ 上传中。。。”)
FTP.文件上传 (本地文件名, 编辑框_路径.内容 ＋ 文件_取文件名 (本地文件名, 真), )
进度提示_关闭 ()
取目录列表 ()

子程序名	返回值类型	公开	备 注
进度提示_打开
参数名	类 型	参考	可空	数组	备 注
提示信息	文本型

透明标签_进度提示.可视 ＝ 真
透明标签_进度提示.顶边 ＝ 超级列表框_远程文件.顶边
透明标签_进度提示.左边 ＝ 超级列表框_远程文件.左边
透明标签_进度提示.宽度 ＝ 超级列表框_远程文件.宽度
透明标签_进度提示.高度 ＝ 超级列表框_远程文件.高度
透明标签_进度提示.标题 ＝ 提示信息

子程序名	返回值类型	公开	备 注
进度提示_关闭

透明标签_进度提示.标题 ＝ “”
透明标签_进度提示.可视 ＝ 假

子程序名	返回值类型	公开	备 注
_超级列表框_远程文件_鼠标右键被按下	逻辑型
参数名	类 型	参考	可空	数组	备 注
横向位置	整数型
纵向位置	整数型
功能键状态	整数型

弹出菜单 (右键, , )

子程序名	返回值类型	公开	备 注
_刷新_被选择

FTP.置现行目录 (编辑框_路径.内容)
取目录列表 ()

子程序名	返回值类型	公开	备 注
_下载_被选择

变量名	类 型	静态	数组	备 注
文件名	文本型

如果真 (超级列表框_远程文件.是否被选择 (超级列表框_远程文件.现行选中项))
文件名 ＝ 超级列表框_远程文件.取标题 (超级列表框_远程文件.现行选中项, 0)
调试输出 (文件名)
进度提示_打开 (文件名 ＋ “ 下载中。。。”)
如果真 (目录_是否存在 (取运行目录 () ＋ “/download”) ＝ 假)
目录_创建 (取运行目录 () ＋ “/download”)

FTP.文件下载 (编辑框_路径.内容 ＋ 文件名, 取运行目录 () ＋ “/download/” ＋ 文件名, )
进度提示_关闭 ()

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

批量_编辑框_读取配置 (_启动窗口, )

i支持库列表	支持库注释
iext	扩展界面支持库一
spec	特殊功能支持库

.版本 2<br /> .支持库 iext<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 FTP, 类_FTP<br /> <br /> .子程序 _按钮_连接_被单击<br /> .局部变量 FTP服务器地址, 文本型<br /> .局部变量 用户名, 文本型<br /> .局部变量 密码, 文本型<br /> .局部变量 端口号, 整数型<br /> <br /> FTP服务器地址 ＝ 编辑框_地址.内容<br /> 用户名 ＝ 编辑框_用户名.内容<br /> 密码 ＝ 编辑框_密码.内容<br /> 端口号 ＝ 到整数 (编辑框_端口.内容)<br /> <br /> .判断开始 (FTP.连接FTP服务器 (FTP服务器地址, 用户名, 密码, 端口号, ))<br />     状态条1.置文本 (1, “FTP连接成功”)<br />     批量_编辑框_保存配置 (_启动窗口, , )<br />     编辑框_路径.内容 ＝ FTP.取现行目录 ()<br /> .默认<br />     状态条1.置文本 (1, “FTP连接失败!”)<br />     返回 ()<br /> .判断结束<br /> 调试输出 (FTP.取现行目录 ())<br /> 取目录列表 ()<br /> <br /> <br /> .子程序 取目录列表<br /> .局部变量 文件名数组, 文本型, , "0"<br /> .局部变量 时间数组, 日期时间型, , "0"<br /> .局部变量 属性数组, 整数型, , "0"<br /> .局部变量 尺寸数组, 长整数型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 表项索引, 整数型<br /> <br /> FTP.目录列表 (, , 文件名数组, 属性数组, 尺寸数组, 时间数组)<br /> 超级列表框_远程文件.全部删除 ()<br /> .计次循环首 (取数组成员数 (文件名数组), i)<br />     ' 调试输出 (FTP.目录取属性 (FTP.取现行目录 () ＋ 文件名数组 <i>, ))<br />     .如果真 (FTP.目录取属性 (编辑框_路径.内容 ＋ “/” ＋ 文件名数组 <i>, ) ＝ 16)<br />         表项索引 ＝ 超级列表框_远程文件.插入表项 (, 文件名数组 <i>, 1, , , )<br />         超级列表框_远程文件.置标题 (表项索引, 2, 到文本 (时间数组 <i>))<br />         到循环尾 ()<br />     .如果真结束<br /> <br />     表项索引 ＝ 超级列表框_远程文件.插入表项 (, 文件名数组 <i>, 2, , , )<br />     超级列表框_远程文件.置标题 (表项索引, 1, 到文本 (四舍五入 (尺寸数组 <i> ÷ 1024, 2)) ＋ “KB”)<br />     超级列表框_远程文件.置标题 (表项索引, 2, 到文本 (时间数组 <i>))<br /> <br /> .计次循环尾 ()<br /> <br /> <br /> .子程序 _超级列表框_远程文件_表项被激活<br /> .局部变量 索引, 整数型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 目录名, 文本型<br /> <br /> 索引 ＝ 超级列表框_远程文件.取被选择表项 ()<br /> 目录名 ＝ 超级列表框_远程文件.取标题 (索引 [1], 0)<br /> 编辑框_路径.内容 ＝ 编辑框_路径.内容 ＋ 目录名 ＋ “/”<br /> FTP.置现行目录 (编辑框_路径.内容)<br /> 取目录列表 ()<br /> <br /> .子程序 _按钮_返回_被单击<br /> .局部变量 路径数组, 文本型, , "0"<br /> .局部变量 i<br /> .局部变量 路径末尾, 文本型<br /> <br /> <br /> 路径数组 ＝ 分割文本 (编辑框_路径.内容, “/”, )<br /> 路径末尾 ＝ 路径数组 [取数组成员数 (路径数组)]<br /> <br /> .如果真 (路径末尾 ＝ “”)<br />     返回 ()<br /> .如果真结束<br /> <br /> 编辑框_路径.内容 ＝ 文本_删右边 (编辑框_路径.内容, 取文本长度 (路径末尾 ＋ “/”))<br /> FTP.置现行目录 (编辑框_路径.内容)<br /> 取目录列表 ()<br /> <br /> <br /> .子程序 _按钮_上传_被单击<br /> .局部变量 本地文件名, 文本型<br /> <br /> .如果真 (通用对话框1.打开 ())<br />     本地文件名 ＝ 通用对话框1.文件名<br />     进度提示_打开 (文件_取文件名 (本地文件名, 真) ＋ “ 上传中。。。”)<br />     FTP.文件上传 (本地文件名, 编辑框_路径.内容 ＋ 文件_取文件名 (本地文件名, 真), )<br />     进度提示_关闭 ()<br />     取目录列表 ()<br /> .如果真结束<br /> <br /> <br /> <br /> <br /> .子程序 进度提示_打开<br /> .参数 提示信息, 文本型<br /> <br /> 透明标签_进度提示.可视 ＝ 真<br /> 透明标签_进度提示.顶边 ＝ 超级列表框_远程文件.顶边<br /> 透明标签_进度提示.左边 ＝ 超级列表框_远程文件.左边<br /> 透明标签_进度提示.宽度 ＝ 超级列表框_远程文件.宽度<br /> 透明标签_进度提示.高度 ＝ 超级列表框_远程文件.高度<br /> 透明标签_进度提示.标题 ＝ 提示信息<br /> <br /> <br /> <br /> .子程序 进度提示_关闭<br /> <br /> 透明标签_进度提示.标题 ＝ “”<br /> 透明标签_进度提示.可视 ＝ 假<br /> <br /> .子程序 _超级列表框_远程文件_鼠标右键被按下, 逻辑型<br /> .参数 横向位置, 整数型<br /> .参数 纵向位置, 整数型<br /> .参数 功能键状态, 整数型<br /> <br /> 弹出菜单 (右键, , )<br /> <br /> <br /> .子程序 _刷新_被选择<br /> <br /> FTP.置现行目录 (编辑框_路径.内容)<br /> 取目录列表 ()<br /> <br /> <br /> .子程序 _下载_被选择<br /> .局部变量 文件名, 文本型<br /> <br /> .如果真 (超级列表框_远程文件.是否被选择 (超级列表框_远程文件.现行选中项))<br />     文件名 ＝ 超级列表框_远程文件.取标题 (超级列表框_远程文件.现行选中项, 0)<br />     调试输出 (文件名)<br />     进度提示_打开 (文件名 ＋ “ 下载中。。。”)<br />     .如果真 (目录_是否存在 (取运行目录 () ＋ “/download”) ＝ 假)<br />         目录_创建 (取运行目录 () ＋ “/download”)<br />     .如果真结束<br /> <br />     FTP.文件下载 (编辑框_路径.内容 ＋ 文件名, 取运行目录 () ＋ “/download/” ＋ 文件名, )<br />     进度提示_关闭 ()<br /> .如果真结束<br /> <br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 批量_编辑框_读取配置 (_启动窗口, )

EUFTP.zip (1.43 MB, 下载次数: 764)

2021-4-2 12:12 上传

点击文件名下载附件

陈先生的

看看能不能用！！！

zhouxuzx

学习一下

梦碎呦

希望以后会更好

梦碎呦

支持一下

freeocean

赠人玫瑰手有余香

glxmfyx

取目录列表会卡死

luoxiaowei

取目录列表() 卡住

luoxiaowei

去目录列表() 卡死，咋解决呢

随便逛

部分人卡死

DKSO

666感谢分享！！