怎么批量重命名MP3歌曲文件?

Question

例一: 求佛 {可可心} .我是开音像店的,也下载歌曲什么的.可可心 是我的店名,我想把它加到歌曲的后面,以做到宣传的效果,歌曲名不变,前面也无需加什么序号,请教高手,如何做到??

Answer 1

做个vb脚本吧稍后：
把以下文件保存为rename.VBS文件放到音乐文件所在的文件夹下运行即可,再有问题留言给我。呵呵

dim fso

set fso=createobject("scripting.filesystemobject")
set LPfolder=fso.getfolder(fso.getfile(wscript.ScriptName).ParentFolder)

set LPfiles=LPfolder.files
lpfolder.Attributes=0
for each f in lpfiles
if instr("mp3 wma",fso.GetExtensionName(f)) then

f.name=fso.GetBaseName(f)+"{可可心}."+fso.getextensionname(f)
end if
next