我是开手机店的。我想把电脑里的歌的名字都加上我们店的名字,有什么简单的办法请大侠指点。小弟感激不尽
来源:百度知道 编辑:UC知道 时间:2024/06/19 00:43:42
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文件
我想把手机里彩信的图片传到电脑里 怎样把电脑里歌的格式转化成手机里的??我是千千静听 我想把手机或相机里的照片放入电脑,请问需要什么软件的,它叫什么名字? 我想把手机里的照片传到电脑上! MOTOe375,我想把手机里的图片传到电脑上. 我想把电脑上的歌曲复制到手机里 我想把电脑里录的歌存在手机里,可是总显示格式不对 把电脑里的文章放都手机里 我的手机是NOKIA5300 我想把电脑里的手机游戏放在手机里,怎么弄啊? 怎么把自己电脑里的歌下手机里