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

易语言 2019-10-02 15:49:48

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

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.插入表项 (, 文件名, , , , )
文件名 = 寻找文件 (, )
.判断循环尾 ()
寻找文件 (, )