主题：FTP存储根上目录问题

Select Case e.DataCol.Name
    Case "上传招标文件" '插入文件
        Dim path As String = "/监理资料/招标文件"
        If e.DataCol.FTPClient.DirExists(path) = False
            e.DataCol.FTPClient.MakeDir(path)
        End If
        path = "/监理资料/招标文件/" & Format(e.DataRow("开标日期"), "yyyyMM") & e.DataRow("项目名称")
        If e.DataCol.FTPClient.DirExists(path) = False
            e.DataCol.FTPClient.MakeDir(path)
        End If
        e.DataCol.FTPClient.ChangeDir(path)
End Select