给你个MP3批量改名的代码，自己设置一下相应的组件，把MP3改成RAR就可以使用了：
代码如下：
.版本 2
.支持库 shell
.子程序 _按钮1_被单击
编辑框1.内容 ＝ 浏览文件夹 (“请选择目录”, ) ＋ “\”
.如果真 (编辑框1.内容 ≠ “\”)
寻找MP3文件 (编辑框1.内容)
按钮2.禁止 ＝ 假
.如果真结束
.子程序 _按钮2_被单击
.局部变量 MM, 整数型
.局部变量 NN, 整数型
.局部变量 歌曲名前, 文本型
.局部变量 歌曲名后, 文本型
处理事件 ()
置等待鼠标 ()
MM ＝ 列表框1.取项目数 ()
.计次循环首 (MM, NN)
歌曲名前 ＝ 编辑框1.内容 ＋ 列表框1.取项目文本 (NN － 1) ＋ “.MP3”
歌曲名后 ＝ 编辑框1.内容 ＋ 列表框2.取项目文本 (NN － 1) ＋ “.MP3”
.如果真 (文件是否存在 (歌曲名前))
文件更名 (歌曲名前, 歌曲名后)
.如果真结束
.计次循环尾 ()
.子程序 寻找MP3文件
.参数 目录, 文本型
.局部变量 文件名, 文本型
.局部变量 MM, 整数型
.局部变量 NN, 整数型
.局部变量 歌曲名前, 文本型
.局部变量 歌曲名后, 文本型
列表框2.清空 ()
列表框1.清空 ()
处理事件 ()
.如果真 (取文本右边 (目录, 1) ≠ “\”)
目录 ＝ 目录 ＋ “\”
.如果真结束
文件名 ＝ 寻找文件 (目录 ＋ “*.mp3”, )
.判断循环首 (文件名 ≠ “”)
列表框1.加入项目 (取文本左边 (文件名, 取文本长度 (文件名) － 4), )
文件名 ＝ 寻找文件 (, )
.判断循环尾 ()
MM ＝ 列表框1.取项目数 ()
.计次循环首 (MM, NN)
列表框2.加入项目 (取文本右边 (“000000” ＋ 到文本 (NN), 取文本长度 (到文本 (MM))) ＋ 列表框1.取项目文本 (NN － 1), )
.计次循环尾 ()
如果还有问题，可以百度联系。
温馨提示：答案为网友推荐，仅供参考