主题：文件管理器中目录如何改动路径

文件管理器下面有增加、目录等几个选项，其中点击目录后，在文件管理器中自动引用了目录的路径，但是我想：首先把整个目录全部复制到一个新的路径中，再把文件管理器中的路径重新指定到新路径，在那个事件中写代码？怎么写代码？

DataColChanged事件

 

If e.DataCol.Name = "第十列" Then
    If e.DataRow.Lines("第十列").count>0 Then
        Dim ls = e.DataRow.Lines("第十列")
        Dim path As String = ls(ls.Count-1).trim("[", "]")
        msgbox(path)
        If FileSys.DirectoryExists(path) Then
            FileSys.CopyDirectory(path, ProjectPath & FileSys.GetName(path), True)
            ls(ls.Count-1) = "[" & ProjectPath & FileSys.GetName(path) & "]"
            systemready = False
            e.DataRow.Lines("第十列") = ls
            systemready = True
        End If
    End If
End If

大哥，你发的帖子的问题，是怎么解决的，跪求

2楼就是方法。请描述您具体的问题。