崩溃了，奇怪的错误 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

If ftp1 Is Nothing Then Return False

If ftp1.Connected = False Then Return False

If filesys.FileExists(strLocalFile) Then filesys.DeleteFile(strLocalFile,2,2)

If ftp1.FileExists(strRemoteFile) Then

If ftp1.Download(strRemoteFile,strLocalFile) = False Then

msgbox(ftp1.Connected) ‘此处报false

msgbox(strRemoteFile)

msgbox(strLocalFile)

。。。。。

我晕了，开发环境下，没问题，一发布就出错，导致无法下载文件。

局域网内的ftp,代码成这样：

strRemoteFile = "/升级文件/" & dr("文件名")

strLocalFile = Vars("_gsTempPath") & "\" & dr("文件名")

If filesys.FileExists(strLocalFile) Then filesys.DeleteFile(strLocalFile,2,2)

Dim ftp1 As new ftpclient

ftp1.host = Vars("_gsFtpHostAdmin")

ftp1.Account = Vars("_gsFtpAccountAdmin")

ftp1.Password = Vars("_gsFtpPasswordAdmin")

ftp1.UTF8 = True

If ftp1 Is Nothing Then Return False

If ftp1.Connected = False Then ftp1.Connect

If ftp1.FileExists(strRemoteFile) Then

msgbox(ftp1.Connected) 报True

msgbox(strRemoteFile) 报/升级文件/升级包20181202.zip

msgbox(strLocalFile) 报F:\编程\xxx管理系统\Publish\project\temp\升级包20181202.zip

If ftp1.Download(strRemoteFile,strLocalFile) = False Then

msgbox(ftp1.Connected) 报False

MessageBox.show("升级包下载失败!","提示",MessageboxButtons.Ok,MessageboxIcon.Information) 报升级包下载失败

ftp1.close

Return False

End If

Else

MessageBox.show("下载失败,升级文件包不存在!","提示",MessageboxButtons.Ok,MessageboxIcon.Information)

ftp1.close

Return False

End If

发布后才出错，开发情况下，把文件正常down回来了。

1、试了，不行

2、没有

3、同一台电脑，我是在自己电脑，publish这个目录下直接执行的。

4、稍等

试了半天；下面这句改一下

If ftp1.Download(strRemoteFile,strLocalFile) = False Then

改成

If ftp1.Download(strRemoteFile,“F:\编程\xxx管理系统\Publish\project\temp\升级包20181202.zip”) = False Then

就好了。没问题。

msgbox(strLocalFile = "F:\编程\xxx管理系统\Publish\project\temp\升级包20181202.zip") 返回true

无语的很。

这个文件名必须要拼一下，不能写死。

主题：崩溃了，奇怪的错误