可以用脚本来做这些事情。
把下面代码复制到记事本 然后保存为:改名.vbs
将需要加编号的歌曲的文件夹拖到这个VBS文件上 即可。
注意:编号的过程中 不能播放那些歌曲。。。
If WScript.Arguments.Count=0 Then WScript.Quit
Dim FSO
Dim MP3Folder,oMP3
Dim ExtName,ItemIndex
Set FSO=CreateObject("Scripting.FileSystemObject")
Set MP3Folder=FSO.GetFolder(WScript.Arguments(0))
For Each oMP3 In MP3Folder.Files
ExtName=UCase(FSO.GetExtensionName(oMP3))
If ExtName="MP3" Or ExtName="WMA" Then
ItemIndex=ItemIndex+1
FSO.MoveFile oMP3.Path,Replace(oMP3.Path,oMP3.Name,String(3-Len(ItemIndex),"0")&ItemIndex&"."&oMP3.Name)
End If
Next
使用软件。
最好的文件更名工具!完全免费,界面友好,共分为13项操作内容。 你可以批量给文件或文件夹重命名,随时更名随时预览。你可以批量给 文件或文件夹名称添加前缀或后缀,添加日期,自动编号,批量删除指 定字符,批量插入指定字符到文件名中的指定位置,批量替换指定字符, 批量删除数字、汉字等...更难能可贵的是,它还支持文件扩展名的批量 更改,保存更名后的文件到新的位置。总之,有了 Bulk Rename Utility,你会发觉给文件或文件夹更名变得前所未有的轻松! 新版增加了文件及文件夹右键菜单功能,使用更加方便。
下载地址:http://soft.mumayi.net/downinfo/4226.html
有电脑编辑
一步一步来吧