主题：[求助]FTP设置多层文件夹

FTP设置多层文件夹：点击“增加”按钮，FTP文件夹自动添加子文件夹，首先判断FTP服务器是否有该子文件夹，如没有创建此子文件夹。

请问如何编程？

Dim dr As DataRow = e.DataRow
If e.DataCol.name = "建设文件夹" Then
    If e.DataRow.IsNull("项目名称") Or e.DataRow.IsNull("项目节点") = False
        Dim ftp1 As New FtpClient
        If ftp1.DirExists(dr("年度") & "\" & dr("项目名称") & "\" & dr("项目节点")) Then
            MessageBox.show("目录已存在","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
            e.Path = dr("年度") & "\" & dr("项目名称") & "\" & dr("项目节点")
        Else
            If ftp1.MakeDir(dr("年度") & "\" & dr("项目名称") & "\" & dr("项目节点")) Then
                Messagebox.Show("创建目录成功!")
            Else
                Messagebox.Show("创建目录失败!")
            End If
        End If
    End If
End If

通过表事件BeforeAddFile中实现，对吗？在PTP数据库中自动添加文件夹

在FTP服务器中添加“新建目录”，是需要手动添加，还是能通过编码自动添加？

呵呵，抱歉啊，因为FTP涉及服务器的用户名，密码，因此没粘过来，明白老师的思路了，我现在就改成窗口编程，试试！