FTP都加上了TRY语句,还是会报错 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → FTP都加上了TRY语句,还是会报错

共有1072人关注过本帖树形打印复制链接主题：FTP都加上了TRY语句,还是会报错

有点蓝

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：109736 积分：558396 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2024/7/5 14:08:00 [显示全部帖子]

提示的意思是集合已经被更改，无法进行遍历处理。这个和ftp应该没有关系，应该是try之外出现的错误

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：109736 积分：558396 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2024/7/5 14:58:00 [显示全部帖子]

看具体什么错误？

Try

If ftp.FileExists(NetFile) = False Then '如果存在则下载

丢失 = 丢失 + 1

Continue For ' 下一个循环

End If

Catch ex As Exception

msgbox(ex.message)

……

有点蓝

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：109736 积分：558396 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2024/7/5 16:59:00 [显示全部帖子]

不可能啊，除非ftp是空的、

再调试看看

Try

msgbox(ftp is nothing)

If ftp.FileExists(NetFile) = False Then '如果存在则下载

丢失 = 丢失 + 1

Continue For ' 下一个循环

End If

msgbox("NetFile=" & NetFile)

Catch ex As Exception

msgbox(ex.message)

有点蓝

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：109736 积分：558396 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2024/7/6 8:57:00 [显示全部帖子]

这样调试看看输出什么错误结果

Try

If FTP.Connect = True Then ' FTP连接失败时

If ftp.FileExists(NetFile) = False Then '如果存在则下载

丢失 = 丢失 + 1

Continue For ' 下一个循环

End If

Catch ex As Exception

Dim IsFTP As Boolean = ftp Is Nothing

FileSys.WriteAllText(ProjectPath & "Ftp_Files_Down_Err.Txt", "FTP Is Nothing =" & IsFTP & vbCrLf, True)

FileSys.WriteAllText(ProjectPath & "Ftp_Files_Down_Err.Txt", "检查文件存在NetFile =" & NetFile & vbCrLf, True)

Dim bu As new StringBuilder

bu.AppendLine("Exception 错误记录 ++++++++")

Dim v = ex

Do While v IsNot Nothing

bu.AppendLine( v.Message & vbcrlf & v.StackTrace)

v = v.InnerException

Loop

bu.AppendLine("Exception 错误记录 ----------")

FileSys.WriteAllText(ProjectPath & "Ftp_Files_Down_Err.Txt", bu.ToString & vbCrLf, True)

……

下一主题 >> << 上一主题

主题：FTP都加上了TRY语句,还是会报错