VBS自动将IE缓存目录复制过来的文件改名

最近给老弟做个公安局经侦信息网，在网上找到一个网站，需要上面的大量图片，通过网上一个个点右'键保存图片，效率太慢了。干脆通过IE缓存复制过来，不过复制出来的文件名多加了后缀。如mm.gif文'件，从IE缓存中复制出来后变为mm[1].gif。大量的图片手动将[1]去掉非常累人，所以就写了下面这个'程序来自动处理

获取当前路径方法一

createobject("Scripting.FileSystemObject").GetFolder(".").Path

获取当前路径方法二

createobject("Scripting.FileSystemObject").GetFile(Wscript.ScriptFullName).ParentFolder.Path

VBS代码

On Error Resume Next'如果程序运行中出现错误自动忽略
Dim mmFSO:Set mmFSO=CreateObject("Scripting.FileSystemObject")
Dim objFolder:Set objFolder=mmFSO.GetFolder(mmFSO.GetFolder(".").Path)
REM mmFSO.GetFolder(".").Path 当前路径

'查找当前目录下的所有文件
Set objFiles=objFolder.Files
For Each objFile In objFiles
REM ::文件名(objFile.name)::
IF inStr(objFile.name,"[1]")>0 Then
mmFSO.MoveFile objFile.name,replace(objFile.name,"[1]","")
Count=Count+1
End IF
Next
Set objFolder=Nothing
Set mmFSO=Nothing:mmFSO=NULL

操作方法

从IE缓存中复制的文件放到一个文件夹中，将上面代码保存为vbs文件，也存放到那个文件夹中，执行即可。