VBS 重命名一个文件夹内的全部文件

来源：百度知道 编辑：UC知道 时间：2024/05/10 13:21:59
请问如何右击一个文件夹弹出“顺序重命名所有文件” 然后调用一个VBS文件的功能把此文件夹内的所有文件按照数字顺序从到高重命名。
比如一个文件夹内有很多数码相机拍的图片，文件名是很长的字母数字组合，我想把它们改为1.jpg、2.jpg、3.jpg、4.jpg……的形式

难点有两个：一个是如何让用邮件菜单调用VBS文件（估计要配合注册表了）。第二个就是vbs的写法。

请各位高手指点一下思路，不用把代码都写出来，写出核心的代码就可以了，谢谢。

set fso=createobject("scripting.filesystemobject")
set folder=fso.getfolder("c:\photos") 'c:\photos改成文件夹的路径
set files=folder.files
for each file in files
num=0
do
ext=fso.getExtensionName(file)
if not fso.fileexists(folder&"\"&num&"."&ext) then
file.name=num&"."&ext
exit do
else
num=num+1
end if
loop
next

没用过。