各位老师好,
Dim vtxt As String = "Version.txt"
Dim pzip As String = "Publish.zip"
Dim utxt As String = "update.txt"
Dim uzip As String = "update.zip"
Dim ftp As New FTPClient
ftp.Host = "42.51.152.221"
ftp.Account = "abc"
ftp.Password = "abcdef"
ftp.Port = "21"
ftp.RootDir = "\fox\lls\Update" '如果升级所需文件刚好放置在FTP的根目录下,可以不用设置此属性;否则需要设置目录路径.
'ftp.RootDir = "\升级文件所在目录"
Dim zip As New ZipFile
'连接FTP服务器--------------------
If ftp.Connected = False '如果FTP没有连接
If ftp.Connect Then '连接FTP
' MessageBox.Show("FTP服务器连接成功!")
Else
MessageBox.Show("FTP服务器连接失败!")
Return
End If
End If
'检测升级所需的4个文件--------------------
If ftp.FileExists(vtxt) = False OrElse ftp.FileExists(pzip) = False OrElse ftp.FileExists(utxt) = False OrElse ftp.FileExists(uzip) = False Then
MessageBox.Show("服务器缺少升级所需文件!" & vbcrlf & vtxt & " " & pzip & " " & utxt & " " & uzip,"提示",MessageBoxButtons.OK,MessageBoxIcon.Error)
Return
End If
此主题相关图片如下:ftp.jpg
明明FTP上有,
项目却死活 执行了这条代码:
MessageBox.Show("服务器缺少升级所需文件!" & vbcrlf & vtxt & " " & pzip & " " & utxt & " " & uzip,"提示",MessageBoxButtons.OK,MessageBoxIcon.Error)
不知道什么情况。。。