老师，这个代码有什么问题，一直上传不成功，提示：上传过程出现意外，上传不成功！但直接用内置管理器上传又没有问题。而且我把文件放到服务器，显示也正常。

e.cancel = True
Select  Case e.Col.Name
    Case  "身份证扫描件"
        Dim dlg As New openFileDialog \'定义一个新的SaveFileDialog
        dlg.MultiSelect = True
        If dlg.showDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
            Dim ftp1 As new  ftpclient
            ftp1.host="120.0.**.**"
            ftp1.Account = "f*****"
            ftp1.password = "1*****"
            Dim r As Row = Tables("实名制管理").Current
            Dim ls = r.DataRow.Lines("身份证扫描件")
            For Each f As String In dlg.FileNames
                Dim file = "/项目名称/" & r("姓名") & "/" & filesys.GetName(f)
                If ftp1.DirExists("/项目名称/" & r("姓名")) = False Then
                    ftp1.MakeDir("/项目名称/" & r("姓名"))
                End If
                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
                    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
            r.DataRow.lines("身份证扫描件") = ls
            ftp1.Close
        End If
End Select

有主目录，我另外表也这个方式，都是正确的。就这个ftp的不正确，创建目录权限全部都给了

知道问题在哪儿了，老师，我想先根据“项目名称”创建目录，在项目名称下根据“姓名”创建子目录，怎么写呢？

按照一级一级创建，这样写不对，大概就下面这个意思：

                Dim file = "/" & r("项目名称") & "/" & r("姓名") & "/" & filesys.GetName(f)
                If ftp1.DirExists("/" & r("项目名称") & "/" & r("姓名")) = False Then
                    ftp1.MakeDir("/" & r("项目名称") & "/" & r("姓名"))
                End If