多文件同时批量修改文件名工具添加优化版

现在这个源码是基于-----第二个源码地址------再次修改 （这个就比较可以了，速度方面是； 1845个文件是16秒），这个速度方面的话整整提升60%多

（不喜欢也不要说什么，大家都知道编辑发帖不容易---要几分钟了或10多分钟真心不容易。）

事先说明这个源码我去年就发了，今天蛋疼的来修改优化读写速度问题，速度的问题很主要，（我就不多说了，下面是以前一个个版本的源码）

.如果 (编辑框1.内容 ≠ “”)
编辑框2.内容 ＝ “” ' F:\图片\动漫图片1
文件 ＝ { }
进度条1.最大位置 ＝ 到整数 (编辑框1.内容)
时间 ＝ 0
时间 ＝ 取启动时间 ()
.计次循环首 (到整数 (编辑框1.内容), 计数1) ' 1
文件 ＝ 读入文件 (列表框1.取项目文本 (计数1)) ' 0
创建目录 (编辑框3.内容) ' 没有这玩意儿写入失败！
判断 ＝ 写到文件 (编辑框3.内容 ＋ “\” ＋ 编辑框4.内容 ＋ 到文本 (计数1) ＋ 编辑框5.内容, 文件) ' d:\232\32.jpg'
.如果 (判断 ＝ 真)
显示 ＝ 编辑框3.内容 ＋ “\” ＋ 编辑框4.内容 ＋ 到文本 (计数1) ＋ 编辑框5.内容 ＋ “文件写入成功！”
编辑框2.文本颜色 ＝ #蓝色
.否则
显示 ＝ 编辑框3.内容 ＋ “\” ＋ 编辑框4.内容 ＋ 到文本 (计数1) ＋ 编辑框5.内容 ＋ “文件写入不成功！看看是不是相关按键操作区出现错误？”
编辑框2.文本颜色 ＝ #红色
.如果结束
编辑框2.加入文本 (“文件编号” ＋ 到文本 (计数1) ＋ #换行符)
编辑框2.加入文本 (“是否写入成功：” ＋ 显示 ＋ #换行符)
.如果 (进度显示 ≤ 到整数 (编辑框1.内容) － 1)
进度显示 ＝ 进度显示 ＋ 1
.否则
进度显示 ＝ 进度显示 ＋ 1
.如果结束
进度条1.位置 ＝ 进度显示
.计次循环尾 ()
时间1 ＝ 取启动时间 () － 时间
时间1 ＝ 时间1 ÷ 1000
编辑框2.加入文本 (“批量处理完成；” ＋ “共用时间：” ＋ 到文本 (时间1) ＋ “秒！” ＋ “本工具有PV开发” ＋ #换行符)
写到文件 (编辑框3.内容 ＋ “\” ＋ “批量操作生成信息.txt”, 到字节集 (到文本 (编辑框2.内容)))
列表框1.清空 ()
.否则
信息框 (“你要选着文件进入软件才可以 批量修改文件”, 0, “pv提示：”)