以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  请教一下关于FtpClient打开服务器上文件的问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=171705)
--  作者：aqsunxj
--  发布时间：2021/9/6 16:43:00
--  请教一下关于FtpClient打开服务器上文件的问题
远程文件位置已经存在一个列中了，比如 /2021A099/1.xls 想要实现选定某行然后通过按钮打开指定位置的远程文件 只要打开文件就行了 不要其他的功能
应该用到FtpClient，想了办法也没啥思路 请教下老师 谢谢
--  作者：z769036165
--  发布时间：2021/9/6 16:55:00
--  
1、选定某行的时候通过窗口其他文本框或者标签等控件或全局变量等方式去接收存储该行的参数，然后按钮去执行打开ftp文件
2、按钮可以直接获取选定表的行的地址 Tables("表A").Current("文件地址")，然后去ftp打开
3、改成双击行或者某列时，直接打开文件(一般双击行)
--  作者：aqsunxj
--  发布时间：2021/9/6 17:03:00
--  
恩 谢谢 老师 就是不知道 直接打开远程文件 用的FtpClient哪个命令 不想打开内置的ftp管理器
--  作者：z769036165
--  发布时间：2021/9/6 17:08:00
--  

Download

从FTP上下载文件，语法：

Download(sourceFileName, destinationFileName, ShowUI)

sourceFileName：要下载的文件，含路径
destinationFileName：保存下载文件的文件名和路径。
ShowUI：可选参数，逻辑型，是否显示下载进度，默认为False。

如果下载成功，返回True，否则返回False:

示例

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

 Dim Proc As New Process \'定义一个新的Process
 Proc.File = "c:\\data\\Desert.jpg" \'指定要打开的文件
 Proc.Start()

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


这个改一下就可以了，下载的地址自行指定，文件需要做定期删除，或不删除都可以

[此贴子已经被作者于2021/9/6 17:08:34编辑过]
--  作者：有点蓝
--  发布时间：2021/9/6 17:12:00
--  
需要先把文件下载下来，才能打开。大概逻辑参考上面代码
--  作者：aqsunxj
--  发布时间：2021/9/6 17:17:00
--  
恩 谢谢两位老师了  你们真是乐于助人的大好人