ftp上传突然不能用了 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

提示什么错误？

For Each f As String In dlg.FileNames
Dim file = "/采购合同管理/" & r("项目名称") & "/" & r("序号") & "/" & filesys.GetName(f)

msgbox(file )

        If ftp1.DirExists("/采购合同管理/" & r("项目名称")) = False Then
            ftp1.MakeDir("/采购合同管理/" & r("项目名称"))
        End If

msgbox(ftp1.DirExists("/采购合同管理/" & r("项目名称")))
        If ftp1.DirExists("/采购合同管理/" & r("项目名称") & "/" & r("序号")) = False Then
            ftp1.MakeDir("/采购合同管理/" & r("项目名称") & "/" & r("序号"))
        End If

msgbox(ftp1.DirExists("/采购合同管理/" & r("项目名称") & "/" & r("序号")))
        Dim Result As DialogResult
        If ftp1.FileExists(file) Then
            Result = MessageBox.Show("文件已经存在,是否覆盖?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
        End If
        If result = Nothing OrElse result = DialogResult.Yes Then

msgbox(f)
            If ftp1.Upload(f,file,True) = True Then
                If ls.contains(file) = False Then
                    ls.add(file)
                End If
            Else
                MessageBox.Show( f & "上传失败" ,"提示" ,MessageBoxButtons.OK,MessageBoxIcon.Question)
            End If
        End If
    Next

主题：ftp上传突然不能用了