Question

VBS批量修改文件名出错

dim s as string,i as int
i=184
d=dir("d:\temp\*")
do until d=""
s=split(d,".")
s(ubound(s)-1)=i
name "d:\" & d as "d:\" & join(s,".")
d=dir
i=i+1
loop
msgbox "批量修改文件名完毕！"
报第一行 7字符错误 应该怎么写

Answer 1

这两个变量定义错了，是：dim s , i as integer
s用来接收数组，要用通用类型，也就是没类型，
i 整形写的不全。

第二个问题，到底是vb还是vbs，这是vb代码，vbs有些没用的，如dir, as 类型，name as

追问

VBS脚本

追答

Dim fso
Set fso = WScript.CreateObject("Scripting.Filesystemobject")
Dim fld 
Set fld=fso.GetFolder("d:\temp")
Dim fl
Dim index
index=184
For Each fl In fld.Files
    fl.Name=index & fso.GetExtensionName(fl.Name)
    index=index+1
Next

这样了，不过有重名的话会发生出错。

追问

可以加上判断有没有重命名么？ 有的话跳过 index+1 这个貌似没效果啊 我执行了之后文件名没动 我是win8和这个有关？

追答

Dim fso
Set fso = WScript.CreateObject("Scripting.Filesystemobject")
Dim fld 
Set fld=fso.GetFolder("d:\temp")
Dim fl
Dim index
index=184
dim newName
For Each fl In fld.Files
Do 
    newName=index & "." & fso.GetExtensionName(fl.Name)
    index=index+1
    Loop while fso.FileExists(fso.BuildPath(fld.Path,newName))
    fl.Name=newName
Next

 window8是不是有关不知道了，不过前个文件名与扩展名间少了个点。你再试试。

追问

还是不行啊。。。 我是修改文件夹的名字。。。 不知道这个有没有关系？

追答

Dim fso
Set fso = WScript.CreateObject("Scripting.Filesystemobject")
Dim fld 
Set fld=fso.GetFolder("d:\temp")
Dim fl
Dim index
index=184
For Each fl In fld.SubFolders
Do 
    index=index+1
    Loop while fso.FileExists(fso.BuildPath(fld.Path,CStr(index)))
    fl.Name=CStr(index)
next

这是修改文件夹