主题：有办法把ftp服务器里的目录显示出来吗?

有办法把ftp服务器里的目录显示出来吗?只显示目录,不显示文件,可以建目录,删除目录

用什么控件来显示ftp所有目录?

主要是代码不会写,创建二级三级目录的代码也写不好

此主题相关图片如下：1.png

 msgbox("update\" & Vars("类别名称"))
ftp1.MakeDir("update\" & Vars("类别名称"))这样写的

 怎么获致TreeView1编辑完节点的值和路径

 界面就是七楼的方法进行编辑的,

    Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
    If trv.SelectedNode Is Nothing And trv.Nodes.count <>0
        messagebox.show("未选择任何类别,请选择后再增加","提示")
        Return
    End If
    Dim tr As WinForm.TreeView = e.Form.Controls("TreeView1")
    If tr.Nodes.count =0
        Dim Index As Integer = 1
        If tr.Nodes.count >= 1 Then
            Index = cint(tr.Nodes(tr.nodes.count - 1).name) + 1
        End If
        Dim nd As WinForm.TreeNode = tr.Nodes.Add(index,"新分类")
        tr.SelectedNode = nd
        tr.Select
        tr.BeginEdit
    Else
        Dim nd As WinForm.TreeNode = tr.SelectedNode
        Dim id As Integer = nd.index
        If nd.ParentNode Is Nothing Then
            nd = tr.Nodes.Insert("新分类",id+1)
        Else
            nd = nd.ParentNode.Nodes.Insert("新分类",id+1)
        End If
        tr.SelectedNode = nd
        tr.Select
        tr.BeginEdit
    End If

上面是新增同级

    Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
    If trv.SelectedNode IsNot Nothing  Then
        Dim pd As WinForm.TreeNode = trv.SelectedNode
        Dim Index As Integer = 1
        If pd.Nodes.count >= 1 Then
            Index = cint(pd.Nodes(pd.nodes.count - 1).name) + 1
        End If
        Dim nd As WinForm.TreeNode = pd.Nodes.Add(index,"新分类")
        trv.SelectedNode = nd
        trv.Select
        trv.BeginEdit
    End If

上面是新增下级

获取TreeView1编辑完节点的值和路径,请老师帮助给一下代码

 我看了,没有编辑完的代码,编辑完获取TreeView1编辑完节点的值和路径,请老师帮助给一下代码