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

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文件