我是开手机店的。我想把电脑里的歌的名字都加上我们店的名字，有什么简单的办法请大侠指点。小弟感激不尽

dim fso
//注意,一个文件夹里只能运行一次,第二次会加两次店名了,放在要改名的文件夹下双击运行
dim fileset
dim fldr
dim fldrpath
dim FileName
fldrpath = left(wscript.scriptfullname,instrRev(Wscript.scriptfullname,"\"))

set fso = CreateObject("Scrip"&"ting.FileSy"&"stemObject")
set fldr = fso.GetFolder(fldrpath)
set fileset = fldr.Files
if fileset.count=0 then
WScript.Quit
end if
for each file in fileset
FileName = file.Name
'index = instr(FileName,".")
temp1 = left(FileName,instrRev(FileName,".")-1)
temp1 = temp1&"这里替换成你的店名"
temp2 = right(FileName,len(FileName)-(instrRev(FileName,".")-1))
FileName = temp1&temp2
file.Name = FileName
next
set fileset = nothing
set fldr = nothing
set fso = nothing
Wscript.echo "修改完成"

将以上代码粘贴到记事本,保存为.vbs文件

http://www.newhua.com/soft/53949.htm
批量修改歌的信息就可以了`id标签改一下就好

晕 下载歌还收费？？现在什么时代了 电脑这么普及 估计你这种做法没用

用下载器下载歌曲的时候 把默认文件名字改一下
应该能行吧

下载个文件名修改器应该可以。 不过现在不同以前了，下载歌也收费的话真的很难做生意的。网上随便那里都可以下载。还是换换个经营方式吧。

我想简单倒没有,你可以聪明1点,可以把你店的标记或英文缩写打上去,叫几个人,轮流打,我想这应该算简单吧!