（超级简单问题）实现立即给分。在TreeView控件中，如何实现在当前节点打上挑，其下一级节点的文件全部拷贝到C盘根目录下？

Question

如题，谢谢你的回复！！

Answer 1

dim nodeX as node
set nodeX=me.treeview1.nodes("当前节点的key值").child
FileCopy nodex.text, Dest
while nodex.key<>nodex.LastSibling.key
   set nodex=nodex.next
   FileCopy nodex.text, Dest
wend

Answer 2

哦，不好意思，是可以拷贝多个文件……
只是我各个节点的KEY值都默认为空了，如下程序所示：
    Set node1 = TreeView1.Nodes.Add(, , , "目录", 1)
    
    
    Set node2 = TreeView1.Nodes.Add(node1.Index, tvwChild, , "文件夹1", 2)
    Set MFolder = FSO.GetFolder("D:\pls\bin")
        For Each mfile In MFolder.Files
            'Combo1.AddItem mfile.Name
            Set node3 = TreeView1.Nodes.Add(node2.Index, tvwChild, , mfile.Name, 3)
            
        Next
    Set mfile = Nothing
    Set MFolder = Nothing
    Set FSO = Nothing
    Set node2 = TreeView1.Nodes.Add(node1.Index, tvwChild, , "文件夹2", 2)
    Set node2 = TreeView1.Nodes.Add(node1.Index, tvwChild, , "文件夹3", 2)我用FSO对象把D:\PLS\BIN文件夹内的文件全部列出来，
没有对KEY赋值。
如果这样，如何拷贝？
很急切，谢谢！！