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

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