Foxtable(狐表)用户栏目专家坐堂 → ftp下载文件疑问


  共有3039人关注过本帖树形打印复制链接

主题:ftp下载文件疑问

帅哥哟,离线,有人找我吗?
qhczy
  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:274 积分:2451 威望:0 精华:1 注册:2010/9/14 13:18:00
ftp下载文件疑问  发帖心情 Post By:2014/7/18 17:06:00 [只看该作者]

Dim ftp1 As new ftpclient
ftp1.host=
"196.128.143.28"
ftp1.Account = 
"foxuser"
ftp1.password = 
"138238110"
If 
ftp1.Download("\photo\Desert.jpg","c:\data\Desert.jpg") = True Then
    
Messagebox.show("下载完成!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Else
    
Messagebox.show("下载失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If

请问:
"\photo\Desert.jpg","c:\data\Desert.jpg"
这个代码的意思是不是指从ftp服务器上下载Desert.jpg的这个文件到本地C盘DATA文件夹中对应的文件名称? 这里具体指定了jpg的文件名称, 如果行中的.jpg文件不唯一或其他行的jpg下载到本地应该怎么写呢?



具体帮助链接
http://www.foxtable.com/help/index.html?n=2696.htm

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/7/18 17:09:00 [只看该作者]

 红色代码按需改变

 

Dim ftp1 As new ftpclient
ftp1.host="196.128.143.28"
ftp1.Account = "foxuser"
ftp1.password = "138238110"
If ftp1.Download("\photo\" & e.Row("文件名"),"c:\data\" & e.Row("文件名")) = True Then
    Messagebox.show("下载完成!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Else
    Messagebox.show("下载失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If

[此贴子已经被作者于2014-7-18 17:09:51编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
qhczy
  3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:274 积分:2451 威望:0 精华:1 注册:2010/9/14 13:18:00
  发帖心情 Post By:2014/7/18 17:21:00 [只看该作者]

提示编译错误:"row"不是cotroleventargs"的成员"

 回到顶部
帅哥哟,离线,有人找我吗?
Bin
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2014/7/18 17:22:00 [只看该作者]

你写在什么事件?

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/7/18 17:23:00 [只看该作者]

 

Dim r as Row = CurrentTable.Current

Dim ftp1 As new ftpclient
ftp1.host="196.128.143.28"
ftp1.Account = "foxuser"
ftp1.password = "138238110"
If ftp1.Download("\photo\" & r("文件名"),"c:\data\" & r("文件名")) = True Then
    Messagebox.show("下载完成!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Else
    Messagebox.show("下载失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If


 回到顶部
帅哥哟,离线,有人找我吗?
qhczy
  6楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:274 积分:2451 威望:0 精华:1 注册:2010/9/14 13:18:00
  发帖心情 Post By:2014/7/18 17:35:00 [只看该作者]

是我写错了,我写在窗口中的控件中了.
感谢!

 回到顶部