码迷,mamicode.com
首页 > 其他好文 > 详细

VBS批量修改文件名

时间:2021-07-19 16:29:20      阅读:0      评论:0      收藏:0      [点我收藏+]

标签:term   技术   info   Fix   字符   init   rmi   UNC   prefix   

  • 原图
    技术图片

  • 修改后
    技术图片

‘批量修改文件名.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 i
‘更改名称
For i = 1 To UBound(files)
	Call fop.ChangeFileName(files(i), prefix &"-"& i &"."& suffix)
Next

  • &是字符连接符
  • prefix &"-"& i &"."& suffix就是要改的名字,不需要可以直接删除

VBS批量修改文件名

标签:term   技术   info   Fix   字符   init   rmi   UNC   prefix   

原文地址:https://www.cnblogs.com/MrFlySand/p/15021486.html

(0)
(0)
   
举报
评论 一句话评论(0
登录后才能评论!
© 2014 mamicode.com 版权所有
迷上了代码!