主题：[求助]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