这是我写文件比对源码，但是有电点问题，求助求助

素颜Rose

这个源码就最后，比对MD5的时候，如何才能实现把原来的文件夹里的，需要复制的部分复制到被复制的目标文件夹中，有子文件夹的自动创建，并复制进去。
还有，列表框2中产生的被复制的路径有重复，而且没有和列表框1中的文件一一对应。


求助求助！！














.版本 2
.支持库 shell
.支持库 dp1
.程序集 窗口程序集1
.子程序 __启动窗口_创建完毕

.子程序 _按钮1_被单击
.局部变量 目录, 文本型
目录 ＝ 浏览文件夹 (“请选择目录:”, )
.如果 (取文本右边 (目录, 1) ≠ “\”)
    目录 ＝ 目录 ＋ “\”
.否则
.如果结束
编辑框1.内容 ＝ 目录

.子程序 _按钮2_被单击
.局部变量 目录, 文本型
目录 ＝ 浏览文件夹 (“请选择目录:”, )
.如果 (取文本右边 (目录, 1) ≠ “\”)
    目录 ＝ 目录 ＋ “\”
.否则
.如果结束
编辑框3.内容 ＝ 目录
寻找 (目录)
.子程序 寻找
.参数 文件夹, 文本型
.局部变量 循环, 整数型
.局部变量 文件, 文本型
处理事件 ()
.如果 (取文本右边 (文件夹, 1) ≠ “\”)
    文件夹 ＝ 文件夹 ＋ “\”
.否则
.如果结束
文件 ＝ 寻找文件 (文件夹 ＋ “*.*”, )
.判断循环首 (文件 ≠ “”)
    列表框1.加入项目 (文件夹 ＋ 文件, )
    文件 ＝ 寻找文件 (, )
    循环 ＝ 循环 ＋ 1
    编辑框2.内容 ＝ 列表框1.取项目文本 (循环 － 1)
    文件名 ＝ 取文本右边 (编辑框2.内容, 取文本长度 (编辑框2.内容) － 取文本长度 (编辑框3.内容))
    列表框2.加入项目 (编辑框1.内容 ＋ 文件名, )
.判断循环尾 ()
文件 ＝ 寻找文件 (文件夹 ＋ “*.*”, #子目录)  ' 此时  文件就变成了新的文件夹
.判断循环首 (文件 ≠ “”)
    .如果真 (文件 ≠ “.” 且 文件 ≠ “..”)
        寻找 (文件夹 ＋ 文件)  ' 寻找新的文件夹
    .如果真结束
    文件 ＝ 寻找文件 (, #子目录)
.判断循环尾 ()
.子程序 _按钮3_被单击
.局部变量 循环2
.局部变量 几次
.计次循环首 (1000, 几次)
    循环2 ＝ 循环2 ＋ 1
    .如果 (取数据摘要 (到字节集 (列表框1.取项目文本 (循环2 － 1))) ＝ 取数据摘要 (到字节集 (列表框2.取项目文本 (循环2 － 1))))
    .否则
        写到文件 (列表框2.取项目文本 (循环2 － 1), 到字节集 (列表框1.取项目文本 (循环2 － 1)))
    .如果结束
.计次循环尾 ()



补充内容 (2012-2-3 13:29):

板凳是源码，大家看看！

易客

{:3_227:}这么长，倒不如上传源码。
不知道这个源码对你有用不！

素颜Rose

源码已上传了，大家帮忙看看！！