以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  ftp下载文件疑问  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=53960)
--  作者：qhczy
--  发布时间：2014/7/18 17:06:00
--  ftp下载文件疑问
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
--  作者：有点甜
--  发布时间：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
--  发布时间：2014/7/18 17:21:00
--  
提示编译错误:"row"不是cotroleventargs"的成员"
--  作者：Bin
--  发布时间：2014/7/18 17:22:00
--  
你写在什么事件?
--  作者：有点甜
--  发布时间：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
--  发布时间：2014/7/18 17:35:00
--  
是我写错了,我写在窗口中的控件中了.
感谢!