ftp默认下载目录的问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

想用ftp来存放一些文件,内外网都可以使用,下面是点击按钮打开ftp上文件的代码

'连接FTP服务器

Dim ftp As New FtpClient

ftp.Host = ftp_Host 'ftp服务器地址

ftp.Account = ftp_User 'ftp登录帐号

ftp.Password = ftp_Pwd 'ftp登录密码

ftp.Port = ftp_Port 'ftp端口号

If TryConnectHost(ftp_Host) Then '如果ftp的网络是通的检测是否有升级包

If ftp.Connect Then '如果FTP没有连接,用备用域名连接

'---先下载ftp服务器上的日期文件----------

If ftp.Download("\使用指南\" & e.Button.Text & ".Exe", ProjectPath & "RemoteFiles\" & e.Button.Text & ".Exe", True) Then '如果下载文件成功

'打开本地下载的文件

Dim Proc As New Process '定义一个新的Process

Proc.File = ProjectPath & "RemoteFiles\" & e.Button.Text & ".Exe" '指定要打开的文件

Proc.Start()

Else

MessageBox.Show("ftp下载文件失败,请稍后再试!")

End If

ftp.Close '关闭本次连接

Else

MessageBox.Show("无法连接ftp服务器,请稍后再试!")

End If

问题:

1 是否项目安装后如果有用ftp下载过文件,在安装路径下面就一定会自动生成RemoteFiles这个目录来存入ftp下载的文件,不用人为指定ftp下载目录?

2 每次升级后因为会覆盖安装目录project下的文件,原来已下载的文件是否会被清除,即每次要打开时都重新下载

谢谢!

[此贴子已经被作者于2018/4/15 12:21:41编辑过]

1、RemoteFiles是foxtable自动生成的。但是，你写代码的时候，肯定要人为指定目录才行。

没看懂你要表达什么，想做什么。如果你像RemoteFiles是一致存在的，你可以在制作安装包的时候，就新建一个。

2、不会，同名的文件才会覆盖，不同名的是新增。

就是在ftp的使用指南文件夹下保存了所有录制的.exe的操作视频,每个用户使用过程中都可以点击下载到本地打开观看,我看每个项目下都有个

RemoteFiles文件夹,因为我没有建立过这个文件夹,如果默认就有我的ftp下载代码中就固定用这个文件夹(怕有的电脑上如果没有这个文件夹就会出错)

如果类似下面这样自建目录

'----新增目录----

Dim Path As String = "D:\UpdateTemporary"

If FileSys.DirectoryExists(Path) = False Then

FileSys.CreateDirectory(Path)

End If

有遇到这种情况,有的用户的电脑操作系统安装后根本没有D盘或者有人的笔记本电脑只有一个C盘这样运行也会出错,所以才想如果ft会自动创建我就不用管这些问题了

RemoteFiles 在项目文件夹里面，如果确实担心，你发布生成程序之后，再多新建一个叫做 RemoteFiles 的文件夹，不就行了。

如查窗口表中有一个多文件列,同时窗口上有一个文件管理器绑定到这列,都是放在远程ftp上,如下代码

DataTables("通知_主表").DataCols("附件").ExtendType = ExtendTypeEnum.Files

'绑定控件

Dim flm As WinForm.FileManager = e.Form.Controls("FileManager1")

flm.BindingField = e.Form.name & "_主表.附件"

flm.CommandVisible = False '不显示底端命令按钮

Dim ftp As New FtpClient

DataTables(e.form.name & "_主表").DataCols("附件").Remote = True

DataTables(e.form.name & "_主表").DataCols("附件").FTPClient.Host = ftp_Host

DataTables(e.form.name & "_主表").DataCols("附件").FTPClient.Account = ftp_User

DataTables(e.form.name & "_主表").DataCols("附件").FTPClient.password = ftp_Pwd

DataTables(e.form.name & "_主表").DataCols("附件").FTPClient.port = ftp_Port 'ftp端口不是21时必须指定

DataTables(e.form.name & "_主表").DataCols("附件").FTPClient.UTF8 = True '避免中文乱码

DataTables(e.form.name & "_主表").DataCols("附件").FTPClient.RootDir = "/附件"

ftp.Host = ftp_Host 'ftp服务器地址

ftp.Account = ftp_User 'ftp登录帐号

ftp.Password = ftp_Pwd 'ftp登录密码

ftp.Port = ftp_Port 'ftp端口号

ftp.UTF8 = True '避免乱码

flm.FTPclient = ftp

表中列与文件管理器控件都要分别设置ftpClient才可以,为什么设置了列的ftpClient,而且也绑定了,

但不要红色的代码的话双击打开文件管理器控件中的文件就会出错

谢谢!

直接设置ftpclient即可，如

flm.FTPclient = DataTables(e.form.name & "_主表").DataCols("附件").FTPClient

主题：ftp默认下载目录的问题