求一个BAT或者VBS把 一个文件夹下面的所有的文件名字前两位去掉。汉字4字符,字母数字2字符
求一个BAT或者VBS把一个文件夹下面的所有文件的名字前两位去掉。汉字4字符,字母2字符。谢谢拉...
求一个BAT或者VBS把 一个文件夹下面的所有文件的名字前两位去掉。汉字4字符,字母2字符。谢谢拉
展开
3个回答
展开全部
'以下为vbs代码
On Error Resume Next
set application=createobject("shell.application")
set open=createobject("scripting.filesystemobject")
public function Sdir(byval title)
sdir=application.browseforfolder(0,iif(title="","选择一个路径",title),0, "").self.path
End Function
public function iif(byval val,byval trueval,byval falseval)
if val then iif=trueval else iif=falseval
End Function
set p=open.getfolder(sdir(""))
for each i in p.files
if instr(i.name,wscript.scriptname)=0 then i.name=right(i.name,len(i.name)-2)
next
On Error Resume Next
set application=createobject("shell.application")
set open=createobject("scripting.filesystemobject")
public function Sdir(byval title)
sdir=application.browseforfolder(0,iif(title="","选择一个路径",title),0, "").self.path
End Function
public function iif(byval val,byval trueval,byval falseval)
if val then iif=trueval else iif=falseval
End Function
set p=open.getfolder(sdir(""))
for each i in p.files
if instr(i.name,wscript.scriptname)=0 then i.name=right(i.name,len(i.name)-2)
next
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
2011-04-10
展开全部
bat比vbs容易多了。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
为什么不用改名软件?
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询