-
原图
-
修改后
'批量修改文件名.vbs
Function GetScriptPath()
GetScriptPath = Left(WScript.ScriptFullName, Len(WScript.ScriptFullName) - Len(WScript.ScriptName))
End Function
Class MyFileOperator
Private obj
Private Sub Class_Initialize()
Set obj = CreateObject("Scripting.FileSystemObject")
End Sub
Private Sub Class_Terminate()
Set obj = Nothing
End Sub
' 枚举文件
Public Function ListFiles()
Dim path :path = GetScriptPath()
Dim objFolder : Set objFolder = obj.GetFolder(path)
Dim files()
Dim i :i = 0
For Each objFile in objFolder.Files
ReDim Preserve files(i)
files(i) = objFile.Name
i = i + 1
Next
Set objFolder = Nothing
ListFiles = files
End Function
' 文件改名
Public Sub ChangeFileName(source, dest)
Call obj.MoveFile(source, dest)
End Sub
End Class
Dim fop :Set fop = New MyFileOperator
Dim files :files = fop.ListFiles() '
Dim prefix : prefix = InputBox("请输入文件名前缀:") '获取用户输入的前缀
Dim suffix : suffix = InputBox("请输入文件名后缀:") '获取用户输入的后缀
Dim getReturn
getReturn = MsgBox("确定要更改名称?", vbInformation + vbOKCancel, "警告提示")
if getReturn = vbOK then
Dim i
'更改名称
For i = 0 To UBound(files)
if files(i) <> "批量修改文件名.vbs" then '不将代码本身文件修改
Call fop.ChangeFileName(files(i), prefix &"-"& i &"."& suffix)
end if
Next
end if
&
是字符连接符prefix &"-"& i &"."& suffix
就是要改的名字,不需要—
可以直接删除- 在当前文件夹创建名为
批量修改文件名.vbs
的文件,防止把自己也改没了 - 原文:zhidao.baidu.com/question/303882361.html
版权声明:本文内容由互联网用户自发贡献,该文观点仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 举报,一经查实,本站将立刻删除。
如需转载请保留出处:https://bianchenghao.cn/33296.html