Foxtable(狐表)用户栏目专家坐堂 → 请教:如何在PC端直接打开已经上传的远程文件。


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

主题:请教:如何在PC端直接打开已经上传的远程文件。

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


加好友 发短信
等级:一尾狐 帖子:430 积分:4315 威望:0 精华:0 注册:2017/3/20 21:08:00
请教:如何在PC端直接打开已经上传的远程文件。  发帖心情 Post By:2019/12/3 20:09:00 [只看该作者]

1. 条件:
dim fi1 as row=Tables(e.form.name & "_Table4).current
这个字段  fi1(m_files) 里面有字符串值=”/dept_doc/BOM材料清单.xlsx"  文件

2. 下面是教材:FTP  打开远程文件的样本
Dim ftp1 As New FtpClient
Dim files As New List(of String)
ftp1.Host="192.168.1.244"
ftp1.Account = "mUser"
ftp1.Password = "ps20192019"
ftp1.ChangeDir("/dept_doc")
files = ftp1.SelectFile()
For Each file As String In files
    Output.Show(file)
Next

3.请教,如何将样本语句修改成为:
  用户一点我的命令按钮,就直接一步打开了当前行当前字段值所对应的远程文件?
非常感谢!


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


加好友 发短信
等级:超级版主 帖子:105948 积分:538809 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/12/3 20:24:00 [只看该作者]

ftp的文件只能下载后才能打开,绝对不可能直接远程打开

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


加好友 发短信
等级:一尾狐 帖子:430 积分:4315 威望:0 精华:0 注册:2017/3/20 21:08:00
再请教一下。  发帖心情 Post By:2019/12/3 21:40:00 [只看该作者]

针对上面的样本,
请帮我修改一下,
能让用户点“打开按钮”,就能直接下载:字段中所对应的文件名称,
可减少用户---》启动文件管理器--》再选择文件的界面。
还请指教一下,
谢谢

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


加好友 发短信
等级:超级版主 帖子:105948 积分:538809 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/12/3 21:55:00 [只看该作者]

参考:http://www.foxtable.com/webhelp/topics/1410.htm

Dim ftp1 As new ftpclient
ftp1.host=
"196.128.143.28"
ftp1.Account = 
"foxuser"
ftp1.password = 
"138238110"
If 
ftp1.Download(fi1(m_files)ProjectPath & "Attachments\" & FileSys.GetName(fi1(m_files)) = True Then
Dim Proc As New Process '定义一个新的Process
Proc.File = 
ProjectPath & "Attachments\" & FileSys.GetName(fi1(m_files) '指定要打开的文件
Proc.Start()

Else
    
Messagebox.show("下载失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If

 回到顶部