支持拖放的文件批量重命名工具

8次阅读

起因是近期整理扫描书，在找以前用过的一个批量重命名工具
很简单的一个小软件，填上文件编号的起始位、前缀，全选文件拖到软件界面上一松手就自动重命名完成
结果搜了一圈到处都找不到...

所以想着反正最近在研究aardio，干脆自己写一个练练手
于是就有了这个小东西

第一次用aardio写东西，肯定会有还没发现的bug啥的
这里附上源码，欢迎各位高手帮忙捉虫和改进
[AAuto] 纯文本查看 复制代码

import win.ui;
/*DSG{{*/
var winform = win.form(text="批量重命名";right=239;bottom=149;border="dialog frame";max=false;topmost=1)
winform.add(
edit={cls="edit";text="001";left=117;top=20;right=216;bottom=42;dr=1;dt=1;edge=1;multiline=1;num=1;z=3};
edit2={cls="edit";left=117;top=48;right=215;bottom=69;dr=1;dt=1;edge=1;z=5};
static={cls="static";text="拖放文件开始重命名";left=5;top=120;right=239;bottom=135;align="center";db=1;dl=1;dr=1;font=LOGFONT(weight=700);transparent=1;z=1};
static2={cls="static";text="文件名起始值";left=23;top=22;right=107;bottom=36;dl=1;dt=1;transparent=1;z=2};
static3={cls="static";text="文件名前缀";left=24;top=51;right=100;bottom=74;dl=1;dt=1;transparent=1;z=4};
static4={cls="static";text="116博客破解论坛";left=5;top=93;right=239;bottom=108;align="center";db=1;dl=1;dr=1;transparent=1;z=6}
)
/*}}*/
import io;
winform.onDropFiles = function(files){
start = winform.edit.text;
tilte = winform.edit2.text;
d = string.len(start);
var count = #files;

for i = 1, count, 1 {
var oldPath = files[i];
var pathInfo = io.splitpath(oldPath);
var newFileName = tilte ++ string.format("%0"++d++"d", start) ++ pathInfo.ext;
var newPath = pathInfo.dir ++ "\\" ++ newFileName;
var rename = io.rename(oldPath, newPath);
if (rename != true) {
var result = winform.msgboxTest("将【" ++ oldPath ++ "】重命名为【"++ newFileName ++ "】时失败!"++'\n'++"可能存在重名或文件被占用"++'\n'++"是否跳过并继续？","重命名失败")
if (result != true) {
break;
}
}
start++;
}
winform.edit.text = string.format("%0"++d++"d", start);
}
winform.show();
win.loopMessage();