批量增加文件前缀功能源代码

a ＝ 超级列表框1.取表项数 ()
进度条1.最大位置 ＝ a
.计次循环首 (a, i)
进度条1.位置 ＝ i
文件更名 (编辑框1.内容 ＋ “\” ＋ 超级列表框1.取标题 (i － 1, 0), 编辑框1.内容 ＋ “\” ＋ 超级列表框1.取标题 (i － 1, 1))
.计次循环尾 ()
.如果真 (信息框 (“批量更名完成。”, 4096, “提示”) ＝ #确认钮)
进度条1.位置 ＝ 0
.如果真结束
延时 (1000)
超级列表框1.全部删除 ()
延时 (1000)
文件名 ＝ 寻找文件 (编辑框1.内容 ＋ “\*” ＋ 编辑框2.内容, 32)
.判断循环首 (文件名 ≠ “”)
索引 ＝ 超级列表框1.插入表项 (, 文件名, , , , )
文件名 ＝ 寻找文件 (, )
.判断循环尾 ()
寻找文件 (, )