2011-12
01
批量修改文件扩展名的方法
作者:桑三 日期:2011-12-01
不知道有没有人需要批量修改文件扩展名的，不过如果你做过淘宝，又做过电子商务商城相关的，那么也许你就会碰到这样的情况：比如把淘宝拍拍里的商品直接批量上传到你的第三方电子商务平台。这时候就遇到一个问题，就拿淘宝助理来说，导出来的CSV文件边上的同文件名文件夹里放的都是一些tbi文件，而批量传到第三方商城时则需要图片为JPG格式，这时候这个批量修改文件扩展名的方法就非常有用了，所以今天特地给大家分享一下：
复制内容到剪贴板
程序代码
程序代码Function searchext(folder,ext,searchall)
'本脚本发布于www.yongzhouren.org永州人在浙江论坛
'用法：把要修改扩展名的文件所在文件夹拖到到这个批量修改扩展名的VBS上
'folder是要进行检索的文件夹路径
'ext是要查找的一类文件的扩展名
'searchall是true时会进入子文件夹进行查找
Set fso=CreateObject("scripting.filesystemobject")
Set f=fso.GetFolder(folder)
Dim paths()
For Each i In f.Files
If fso.GetExtensionName(i)=ext Then
ReDim Preserve paths(c)
paths(c)=i
c=c+1
End If
Next
If searchall=True Then
For Each i In f.SubFolders
t=searchext(i,ext,searchall)
For Each j In t
ReDim Preserve paths(c)
paths(c)=j
c=c+1
Next
Next
End If
searchext=paths
End Function
main
Sub main()
Set fso=CreateObject("scripting.filesystemobject")
old=InputBox("请输入原来的扩展名(如“exe”):")
Ne=InputBox("请输入要改成的扩展名(如“jpg”):")
For Each i In WScript.Arguments
t=searchext(i,old,True)
For Each j In t
Set f=fso.GetFile(j)
f.Name=fso.GetBaseName(j)&"."&ne
Set f=nothing
Next
Next
End Sub
'本脚本发布于www.yongzhouren.org永州人在浙江论坛
'用法：把要修改扩展名的文件所在文件夹拖到到这个批量修改扩展名的VBS上
'folder是要进行检索的文件夹路径
'ext是要查找的一类文件的扩展名
'searchall是true时会进入子文件夹进行查找
Set fso=CreateObject("scripting.filesystemobject")
Set f=fso.GetFolder(folder)
Dim paths()
For Each i In f.Files
If fso.GetExtensionName(i)=ext Then
ReDim Preserve paths(c)
paths(c)=i
c=c+1
End If
Next
If searchall=True Then
For Each i In f.SubFolders
t=searchext(i,ext,searchall)
For Each j In t
ReDim Preserve paths(c)
paths(c)=j
c=c+1
Next
Next
End If
searchext=paths
End Function
main
Sub main()
Set fso=CreateObject("scripting.filesystemobject")
old=InputBox("请输入原来的扩展名(如“exe”):")
Ne=InputBox("请输入要改成的扩展名(如“jpg”):")
For Each i In WScript.Arguments
t=searchext(i,old,True)
For Each j In t
Set f=fso.GetFile(j)
f.Name=fso.GetBaseName(j)&"."&ne
Set f=nothing
Next
Next
End Sub
大家只要把上面代码复制保存到一个txt文本文件，比如 批量修改文件扩展名.vbs 即可。
用法：用法：把要修改扩展名的文件所在文件夹拖到到这个批量修改扩展名的VBS上，就会提示你输入原来的扩展名，比如tbi 确定后会提示你输入要改成的扩展名，比如jpg 然后确定瞬间即可完成批量修改文件扩展名。
上一篇: 新神曲北大校长周其凤《化学是你化学是我》视频完整版
下一篇: IE目标另存为提示“无法复制文件：无法读源文件或磁盘”的解决办法
文章来自: 源于网络
引用通告: 查看所有引用 | 我要引用此文章
Tags: 教程 电脑 技术 
相关日志:
评论: 0 | 引用: 0 | 查看次数: -
发表评论