想用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
End If
问题:
1 是否项目安装后如果有用ftp下载过文件,在安装路径下面就一定会自动生成RemoteFiles这个目录来存入ftp下载的文件,不用人为指定ftp下载目录?
2 每次升级后因为会覆盖安装目录project下的文件,原来已下载的文件是否会被清除,即每次要打开时都重新下载
加好友 
发短信
Post By：2018/4/15 11:53:00 [只看该作者]
