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

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