主题：关于ftp按钮

ftp中有个SelectFile方法，然后出现的对话框下面有“刷新、上传、新建目录”三个按钮，我怎么能禁用新建目录这个按钮呢？

 参考

 

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=71927&skin=0

 

贴出代码

 

Dim frm As Object = windows.Forms.Form.activeform
If frm IsNot Nothing Then
    'output.show(frm.name & "dd" & frm.text)
    If frm.name = "Class235" Then
        'For Each c As object In frm.Controls
        '    output.show(c.name)
        'Next
        'Dim tb = frm.Controls("C1FlexGrid1")
        'If tb.Rows(1)(0) = ".." Then
            'tb.Rows(1).visible = False
        'End If
        'frm.controls("Button1").Visible = False
        'frm.controls("Button2").Visible = False
        frm.controls("Button3").Visible = False
        'frm.controls("cmbFTPPath").Visible = False
        'frm.controls("Label1").Visible = False
        'frm.controls("TextBox1").Visible = False
        'frm.controls("C1FlexGrid1").height = 380
    Else If frm.name = "Class234" Then
        'Dim tb = frm.Controls("C1FlexGrid1")
        'If tb.Rows(1)(0) = ".." Then
            'tb.Rows(1).visible = False
        'End If
        'frm.controls("cmbFTPPath").Visible = False
        'frm.controls("Label2").Visible = False
        'frm.controls("cmbFTPPath").Visible = False
        'frm.controls("btnOpen").Visible = False
        'frm.controls("btnOpenLocFolder").Visible = False
        'frm.controls("Label1").Visible = False
        'frm.controls("btnRefresh").Visible = False
        'frm.controls("btnUpload").Visible = False
        'frm.controls("btnDownload").Visible = False
        'frm.controls("btnMakeDir").Visible = False
        'frm.controls("btnRename").Visible = False
        'frm.controls("btnDelete").Visible = False
        'frm.controls("C1FlexGrid2").Visible = False
        'frm.controls("C1FlexGrid1").top = 10
        'frm.height = 380
    End If
End If

不行，设置ftp.MakerDirEnabled 没用，因为我根本没调用远程文件管理器，只是调用选择文件这个事件。

楼上贴的那是什么代码，有点蒙圈啊

看楼上。