文件夹和文件复制移动软件

表项数组 ＝ 超级列表框_目录框.取被选择表项 ()
.计次循环首 (取数组成员数 (表项数组), i)
cmd_移动文件 (超级列表框_目录框.取标题 (表项数组 [i], 1), 编辑框_子路径.内容)
.计次循环尾 ()

表项数组 ＝ 超级列表框_目录框.取被选择表项 ()
.如果真 (单选框_移动文件夹.选中 ＝ 真)
.计次循环首 (取数组成员数 (表项数组), i)
文件夹_复制 (超级列表框_目录框.取标题 (表项数组 [i], 1), 编辑框_子路径.内容)
.计次循环尾 ()
.如果真结束
.如果真 (单选框_移动文件.选中 ＝ 真)
.计次循环首 (取数组成员数 (表项数组), i) ' 这行代码只可以复制文件，不可以复制文件夹
cmd_复制文件 (超级列表框_目录框.取标题 (表项数组 [i], 1), 编辑框_子路径.内容)
.计次循环尾 ()