易语言ftp上传文件

.支持库 spec

.子程序 _按钮1_被单击

.局部变量 ftp, 类_FTP

.如果真 (ftp.连接FTP服务器 (地址, 帐号, 密码, 21, ))

.如果真 (ftp.文件上传 (取运行目录 () ＋ “\123.txt”, “/123.txt”, ))

调试输出 (“上传成功”)

.如果真结束

[/e]

1.文件上传，返回的是真吗。 是否上传成功，如果成功了说明命令没有问题，是参数的问题。

2.文件上传的第二个参数，去掉IP地址试试。

.支持库 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.标题 ＝ “连接失败！”

返回 ()

.判断结束

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

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