Foxtable(狐表)用户栏目专家坐堂 → 打开FTP文件


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

主题:打开FTP文件

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


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/2/4 11:08:00 [显示全部帖子]


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


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/2/4 18:56:00 [显示全部帖子]

比如代码

 

Dim t As Table = Tables("表A")
Dim ftp1 As new ftpclient
ftp1.host="196.128.143.28"
ftp1.Account = "foxuser"
ftp1.password = "138238110"
ftp1.UTF8 = True
If ftp1.Download(t.Current("第一列"), "d:\" & FileSys.GetName(t.Current("第一列"))) = True Then
    Messagebox.show("下载完成!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Else
    Messagebox.show("下载失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If
ftp1.close


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


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/2/4 19:23:00 [显示全部帖子]

Dim ftp As FTPClient = Tables("试卷").Cols("试卷文件").DataCol.FTPClient
Dim fpath As String =  Tables("试卷").current("试卷文件")
Dim bpath As String = "d:\" & FileSys.GetName(fpath)
ftp.UTF8 = True
If ftp.Download(fpath, bpath) Then
    Dim Proc As New Process '定义一个新的Process
    Proc.File = bpath
    Proc.Start()
End If

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


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/2/4 22:21:00 [显示全部帖子]

 如果没有反应,说明ftp的文件路径不正确吧。你直接执行

 

Dim ftp As FTPClient = Tables("试卷").Cols("试卷文件").DataCol.FTPClient
ftp.OpenManager

 

 然后找到对应的文件,看看其路径是什么。


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


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/2/4 22:50:00 [显示全部帖子]

msgbox看一下fpath的值是什么。或者你在ie浏览器那里访问ftp,然后拷贝对应的路径贴出来看看。

 

上传的话,不是直接可以用ftp的upload方法吗?

 

 


 回到顶部