vbs批量重命名脚本

功能:：假设有个文件夹的所有文件名称前面有个AA_开头，这个小脚本的作用就是删除这个AA_。只是简单的小脚本，如果还有多个”_”字符的时候，重复使用有可能会全部都删除了。

使用：dir填写实际文件所在目录；target填写要分割的字符，保存为.VBS文件，双击运行。做好备份，因为是直接修改原始文件！

dir=("C:\Users\海军\Desktop\104CANON")
target=("_")

Set fso = CreateObject("Scripting.FileSystemObject")
set rfd=fso.getfolder(dir)
set fs=rfd.files
for each f in fs

        If InStr(f.name,target) Then
            length=Len(f.name)
            star=InStr(f.name,target)
            newname=Right(f.name,length-star)
            f.name=newname
        End If

Next