易语言ftp文件上传 到指定文件夹
1个回答
2013-11-18
展开全部
.版本 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.标题 = “连接失败!”
返回 ()
.判断结束
' =============================================================
' 双线内代码为测试服务器是否可用,可以不需要
上传文件.上传文件 (参数)
.支持库 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.标题 = “连接失败!”
返回 ()
.判断结束
' =============================================================
' 双线内代码为测试服务器是否可用,可以不需要
上传文件.上传文件 (参数)
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询