以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  请教：如何在PC端直接打开已经上传的远程文件。  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=143765)
--  作者：lanbor
--  发布时间：2019/12/3 20:09:00
--  请教：如何在PC端直接打开已经上传的远程文件。
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.请教,如何将样本语句修改成为：
  用户一点我的命令按钮，就直接一步打开了当前行当前字段值所对应的远程文件？
非常感谢！
--  作者：有点蓝
--  发布时间：2019/12/3 20:24:00
--  
ftp的文件只能下载后才能打开，绝对不可能直接远程打开
--  作者：lanbor
--  发布时间：2019/12/3 21:40:00
--  再请教一下。
针对上面的样本，
请帮我修改一下，
能让用户点“打开按钮”，就能直接下载：字段中所对应的文件名称，
可减少用户---》启动文件管理器--》再选择文件的界面。
还请指教一下，
谢谢
--  作者：有点蓝
--  发布时间：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