VBS批量修改文件名

VBS批量修改文件名原图修改后’批量修改文件名.vbsFunctionGetScriptPath()GetScriptPath=Left(WScript.ScriptFullName,Len(WScript.ScriptFullName)-Len(WScript.ScriptName))EndFunctionClassMyFileOperatorPrivateo…

  • 原图

    原图
  • 修改后

    修改后
'批量修改文件名.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

(0)
编程小号编程小号

相关推荐

发表回复

您的电子邮箱地址不会被公开。 必填项已用*标注