'去固定长度前缀.vbs



set fs=CreateObject("&#115cripting.FileSystemObject")



myname=W&#115cript.&#115criptFullName

mypath=left(myname,InstrRev(myname,""))



set myfolder=fs.GetFolder(mypath)



MsgBox "最后再看一眼 " & myfolder & " 内的TXT文件吧。"



for each file in myfolder.files

      offset=InstrRev(file.name,"txt") '判断是否为文本文件，或改为2009亦可。



      if offset<>0 then

            newfilename=right(file.name,len(file.name)-6) '去除年月前缀所占字符串长度

            file.name=newfilename

      end if

next



MsgBox myfolder & " 内TXT文件已去除年月前缀。over"