易语言 简单的FTP上传下载等功能，一看就懂。

Doubleehcz

    现在感觉时间越来越不够用的了，想发一些小的技术贴子，都感觉时间不够用。我认为FTP上传下载这种功能太常用了，今天抽出来一点时间发一个关于FTP上传下载等功能的帖子。我也是根据易语言知识库API的例子做出来的，只是自己增加了一些权限功能。首先把整体的界面贴出来，然后就是每个按钮的事件，我就不发源码了。大家尝试去做，不懂得可以问我。大家共同进步。
   
      
  1，上面是预览界面，显示用的是超级列表框，首先我们要连接FTP服务器（代码如下）

  

.版本 2
pp ＝ 连接FTP服务器 (“服务器地址”, “用户名”, “密码”, 21, 真)       ‘自己应该会部署一个FTP服务器，不会的可以百度一下，很简单。
如果 (pp ＝ 真)
信息框 (“连接成功”, 0, , )
标签1.标题 ＝ “提示：” ＋ “你的附件功能正常，请放心使用”
标签1.文本颜色 ＝ #绿色
如果 (FTP置现行目录 (name2) ＝ 真)                                         ‘这个我是用来判断目录的，每个人登陆的时候只能进入自己的目录。这个很好懂
FTP内容读取 ()                                                                            ‘这是一个子程序，在超级列表框中用来显示目录中文件名称，大小，修改时间，属性的
FTP创建目录 (name2)
信息框 (“创建成功”, 0, , )
FTP内容读取 ()

信息框 (“连接失败”, 0, , )
标签1.标题 ＝ “提示：” ＋ “目前功能出现问题，请上报管理员”
标签1.文本颜色 ＝ #红色

i支持库列表	支持库注释
internet	互联网支持库

        .版本 2<br /> .支持库 internet<br /> <br /> pp ＝ 连接FTP服务器 (“服务器地址”, “用户名”, “密码”, 21, 真)       ‘自己应该会部署一个FTP服务器，不会的可以百度一下，很简单。<br /> .如果 (pp ＝ 真)<br />     信息框 (“连接成功”, 0, , )<br />     标签1.标题 ＝ “提示：” ＋ “你的附件功能正常，请放心使用”<br />     标签1.文本颜色 ＝ #绿色<br /> <br />     .如果 (FTP置现行目录 (name2) ＝ 真)                                         ‘这个我是用来判断目录的，每个人登陆的时候只能进入自己的目录。这个很好懂<br />         FTP内容读取 ()                                                                            ‘这是一个子程序，在超级列表框中用来显示目录中文件名称，大小，修改时间，属性的<br />     .否则<br />         FTP创建目录 (name2)<br />         信息框 (“创建成功”, 0, , )<br />         FTP内容读取 ()<br />     .如果结束<br /> <br /> .否则<br />     信息框 (“连接失败”, 0, , )<br />     标签1.标题 ＝ “提示：” ＋ “目前功能出现问题，请上报管理员”<br />     标签1.文本颜色 ＝ #红色

2，FTP创建目录（）这个子程序的代码，文件列表框就是超级列表框

  

子程序名	返回值类型	公开	备 注
FTP内容读取

变量名	类 型	静态	数组	备 注
循环记录变量	整数型
已分割文本	文本型		0

文件列表框.全部删除 ()
计次循环首 (FTP目录列表 (“*.*”, , 文件名数组, 文件属性组, 文件尺寸组, 文件时间组), 循环记录变量)
已分割文本 ＝ 分割文本 (文件名数组 [循环记录变量], “.”, )  ' 取出文件扩展名
判断 (文件属性组 [循环记录变量] ＝ 16)  ' 判断是否是一个目录
文件列表框.插入表项 (-1, 文件名数组 [循环记录变量], 5, -1, 0, 文件属性组 [循环记录变量])
判断 (已分割文本 [取数组成员数 (已分割文本)] ＝ “html” 或 已分割文本 [取数组成员数 (已分割文本)] ＝ “htm”)  ' 如果它的扩展名是网页格式，就在文件列表框中显示一个IE图标
文件列表框.插入表项 (-1, 文件名数组 [循环记录变量], 4, -1, 0, 文件属性组 [循环记录变量])
判断 (已分割文本 [取数组成员数 (已分割文本)] ＝ “exe”)  ' 如果它是一个程序，那么在列表框中给它加一个程序图标
文件列表框.插入表项 (-1, 文件名数组 [循环记录变量], 3, -1, 0, 文件属性组 [循环记录变量])
判断 (已分割文本 [取数组成员数 (已分割文本)] ＝ “txt”)  ' 如果它的扩展名是txt(文本型)，则给它一个记事本图标
文件列表框.插入表项 (-1, 文件名数组 [循环记录变量], 1, -1, 0, 文件属性组 [循环记录变量])
判断 (已分割文本 [取数组成员数 (已分割文本)] ＝ “rar”)  ' 如果它是一个扩展名为rar(RAR压缩文件)的文件，那么给它加上一个RAR图标
文件列表框.插入表项 (-1, 文件名数组 [循环记录变量], 0, -1, 0, 文件属性组 [循环记录变量])
文件列表框.插入表项 (-1, 文件名数组 [循环记录变量], 2, -1, 0, 文件属性组 [循环记录变量])  ' 如果在前面那些判断中以外的扩展名，就给它一个未知类型图标
文件列表框.置标题 (循环记录变量 － 1, 1, 到文本 (文件尺寸组 [循环记录变量]))
文件列表框.置标题 (循环记录变量 － 1, 2, 到文本 (文件时间组 [循环记录变量]))
文件列表框.置标题 (循环记录变量 － 1, 3, 到文本 (文件属性组 [循环记录变量]))
计次循环尾 ()

i支持库列表	支持库注释
iext	扩展界面支持库一
internet	互联网支持库

.版本 2<br /> .支持库 iext<br /> .支持库 internet<br /> <br /> .子程序 FTP内容读取<br /> .局部变量 循环记录变量, 整数型<br /> .局部变量 已分割文本, 文本型, , "0"<br /> <br /> 文件列表框.全部删除 ()<br /> .计次循环首 (FTP目录列表 (“*.*”, , 文件名数组, 文件属性组, 文件尺寸组, 文件时间组), 循环记录变量)<br />     已分割文本 ＝ 分割文本 (文件名数组 [循环记录变量], “.”, )  ' 取出文件扩展名<br />     .判断开始 (文件属性组 [循环记录变量] ＝ 16)  ' 判断是否是一个目录<br />         文件列表框.插入表项 (-1, 文件名数组 [循环记录变量], 5, -1, 0, 文件属性组 [循环记录变量])<br />     .判断 (已分割文本 [取数组成员数 (已分割文本)] ＝ “html” 或 已分割文本 [取数组成员数 (已分割文本)] ＝ “htm”)  ' 如果它的扩展名是网页格式，就在文件列表框中显示一个IE图标<br />         文件列表框.插入表项 (-1, 文件名数组 [循环记录变量], 4, -1, 0, 文件属性组 [循环记录变量])<br />     .判断 (已分割文本 [取数组成员数 (已分割文本)] ＝ “exe”)  ' 如果它是一个程序，那么在列表框中给它加一个程序图标<br />         文件列表框.插入表项 (-1, 文件名数组 [循环记录变量], 3, -1, 0, 文件属性组 [循环记录变量])<br />     .判断 (已分割文本 [取数组成员数 (已分割文本)] ＝ “txt”)  ' 如果它的扩展名是txt(文本型)，则给它一个记事本图标<br />         文件列表框.插入表项 (-1, 文件名数组 [循环记录变量], 1, -1, 0, 文件属性组 [循环记录变量])<br />     .判断 (已分割文本 [取数组成员数 (已分割文本)] ＝ “rar”)  ' 如果它是一个扩展名为rar(RAR压缩文件)的文件，那么给它加上一个RAR图标<br />         文件列表框.插入表项 (-1, 文件名数组 [循环记录变量], 0, -1, 0, 文件属性组 [循环记录变量])<br />     .默认<br />         文件列表框.插入表项 (-1, 文件名数组 [循环记录变量], 2, -1, 0, 文件属性组 [循环记录变量])  ' 如果在前面那些判断中以外的扩展名，就给它一个未知类型图标<br />     .判断结束<br />     文件列表框.置标题 (循环记录变量 － 1, 1, 到文本 (文件尺寸组 [循环记录变量]))<br />     文件列表框.置标题 (循环记录变量 － 1, 2, 到文本 (文件时间组 [循环记录变量]))<br />     文件列表框.置标题 (循环记录变量 － 1, 3, 到文本 (文件属性组 [循环记录变量]))<br /> .计次循环尾 ()

3，首先是 的功能代码：

  

变量名	类 型	静态	数组	备 注
上一级目录	文本型
当前目录	文本型
符号位置	整数型			/号的最后位置

当前目录 ＝ FTP取现行目录 ()
调试输出 (当前目录)
如果 (当前目录 ＝ “/” ＋ name2)                               ‘用来限制向上的功能的，也就是说每个人有每个人的文件夹，
信息框 (“已是顶级目录”, 0, , )
符号位置 ＝ 倒找文本 (当前目录, “/”, , 假)
上一级目录 ＝ 取文本左边 (当前目录, 符号位置)
FTP置现行目录 (上一级目录)
FTP内容读取 ()

i支持库列表	支持库注释
internet	互联网支持库
spec	特殊功能支持库

.版本 2<br /> .支持库 internet<br /> .支持库 spec<br /> <br /> .局部变量 上一级目录, 文本型<br /> .局部变量 当前目录, 文本型<br /> .局部变量 符号位置, 整数型, , , /号的最后位置<br /> <br /> 当前目录 ＝ FTP取现行目录 ()<br /> 调试输出 (当前目录)<br /> <br />     .如果 (当前目录 ＝ “/” ＋ name2)                               ‘用来限制向上的功能的，也就是说每个人有每个人的文件夹，<br />         信息框 (“已是顶级目录”, 0, , )<br />     .否则<br />         符号位置 ＝ 倒找文本 (当前目录, “/”, , 假)<br />         上一级目录 ＝ 取文本左边 (当前目录, 符号位置)<br />         FTP置现行目录 (上一级目录)<br />         FTP内容读取 ()

4 。然后就是 的功能，很简单，代码就一块打出来了

  

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

FTP删除文件 (文件列表框.取标题 (文件列表框.现行选中项, 0))
FTP内容读取 ()

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

FTP删除目录 (文件列表框.取标题 (文件列表框.现行选中项, 0))
FTP内容读取 ()

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

变量名	类 型	静态	数组	备 注
新目录名	文本型

如果真 (输入框 (“输入新目录名”, “创建目录”, “新建文件夹”, 新目录名, #输入文本 ) ＝ 真)  ' 判断输入框是否按了确定按钮
FTP创建目录 (新目录名)
FTP内容读取 ()

i支持库列表	支持库注释
internet	互联网支持库
iext	扩展界面支持库一

.版本 2<br /> .支持库 internet<br /> .支持库 iext<br /> <br /> .子程序 _删除文件按钮_被单击<br /> <br /> FTP删除文件 (文件列表框.取标题 (文件列表框.现行选中项, 0))<br /> FTP内容读取 ()<br /> <br /> .版本 2<br /> .支持库 internet<br /> .支持库 iext<br /> <br /> .子程序 _删除目录按钮_被单击<br /> <br /> FTP删除目录 (文件列表框.取标题 (文件列表框.现行选中项, 0))<br /> FTP内容读取 ()<br /> <br /> .版本 2<br /> .支持库 internet<br /> <br /> .子程序 _创建目录按钮_被单击<br /> .局部变量 新目录名, 文本型<br /> <br /> .如果真 (输入框 (“输入新目录名”, “创建目录”, “新建文件夹”, 新目录名, #输入文本) ＝ 真)  ' 判断输入框是否按了确定按钮<br />     FTP创建目录 (新目录名)<br />     FTP内容读取 ()

5。最后是 的功能代码：

  

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

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

如果真 (打开文件对话框.打开 () ＝ 真 且 打开文件对话框.文件名 ≠ “”)  ' 判断是否打开了文件
远程文件名 ＝ 取文本右边 (打开文件对话框.文件名, 取文本长度 (打开文件对话框.文件名) － 倒找文本 (打开文件对话框.文件名, “\”, , 假))  ' 取出被打开的文件名
FTP文件上传 (打开文件对话框.文件名, 远程文件名, 假)
FTP内容读取 ()

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

如果真 (文件列表框.现行选中项 ≠ -1 且 文件列表框.取表项数值 (文件列表框.现行选中项) ≠ 16 且 保存文件对话框.打开 () ＝ 真 且 保存文件对话框.文件名 ≠ “”)  ' 判断保存对话框是否点保存；判断是否输入了保存的文件名；判断当前选中的文件是不是文件夹类型的文件。
FTP文件下载 (文件列表框.取标题 (文件列表框.现行选中项, 0), 保存文件对话框.文件名, 假)

i支持库列表	支持库注释
internet	互联网支持库
iext	扩展界面支持库一

.版本 2<br /> .支持库 internet<br /> <br /> .子程序 _上传按钮_被单击<br /> .局部变量 远程文件名, 文本型<br /> <br /> .如果真 (打开文件对话框.打开 () ＝ 真 且 打开文件对话框.文件名 ≠ “”)  ' 判断是否打开了文件<br />     远程文件名 ＝ 取文本右边 (打开文件对话框.文件名, 取文本长度 (打开文件对话框.文件名) － 倒找文本 (打开文件对话框.文件名, “\”, , 假))  ' 取出被打开的文件名<br />     FTP文件上传 (打开文件对话框.文件名, 远程文件名, 假)<br />     FTP内容读取 ()<br /> <br /> .版本 2<br /> .支持库 iext<br /> .支持库 internet<br /> <br /> .子程序 _下载按钮_被单击<br /> <br /> .如果真 (文件列表框.现行选中项 ≠ -1 且 文件列表框.取表项数值 (文件列表框.现行选中项) ≠ 16 且 保存文件对话框.打开 () ＝ 真 且 保存文件对话框.文件名 ≠ “”)  ' 判断保存对话框是否点保存；判断是否输入了保存的文件名；判断当前选中的文件是不是文件夹类型的文件。<br />     FTP文件下载 (文件列表框.取标题 (文件列表框.现行选中项, 0), 保存文件对话框.文件名, 假)

好了  功能已经贴出来，大家尝试一些。如果发现什么缺陷，大家 给我指出来，谢谢。
   

ky1977

谢谢分享谢谢谢谢

1365436

不错学习下

saywe

谢谢分享谢谢谢谢

luckydragon

学习了谢谢

fujihua

可以非常拉丝，学习到了

488402

谢谢分享

yyaini0424

对我学习有帮助

gdxxlbs

没有源码？

神说忘记你

可以可以，学习到了

gao110108

编码如何处理，为何我的下载失败，