VBS批量修改文件名

原图
修改后

'批量修改文件名.vbs
Function GetScriptPath()GetScriptPath = Left(WScript.ScriptFullName, Len(WScript.ScriptFullName) - Len(WScript.ScriptName))
End FunctionClass MyFileOperatorPrivate objPrivate Sub Class_Initialize()Set obj = CreateObject("Scripting.FileSystemObject")End SubPrivate Sub Class_Terminate()Set obj = NothingEnd Sub' 枚举文件Public Function ListFiles()Dim path :path = GetScriptPath()Dim objFolder : Set objFolder = obj.GetFolder(path)Dim files()Dim i :i = 0For Each objFile in objFolder.FilesReDim Preserve files(i)files(i) = objFile.Namei = i + 1NextSet objFolder = NothingListFiles = filesEnd Function' 文件改名Public Sub ChangeFileName(source, dest)Call obj.MoveFile(source, dest)End Sub
End ClassDim 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 thenDim i'更改名称For i = 0 To UBound(files)if files(i) <> "批量修改文件名.vbs" then '不将代码本身文件修改Call fop.ChangeFileName(files(i), prefix &"-"& i &"."& suffix)end ifNext
end if

&是字符连接符
prefix &"-"& i &"."& suffix就是要改的名字，不需要—可以直接删除
在当前文件夹创建名为批量修改文件名.vbs的文件,防止把自己也改没了
原文:zhidao.baidu.com/question/303882361.html

VBS批量修改文件名相关推荐

python批量读取dat文件_python编写Windows环境下批量修改文件名
在日常编程工作中我们经常需要对文件进行操作,而文件一般都是由文件名和扩展名组成的.比如我们经常需要把.dat 格式转化成 .txt格式,把png改成jgp格式等等.这里我们就教大家如何利用PYTHO ...
linux下批量修改文件名精彩解答案例分享
######################################################### #linux下批量修改文件名精彩解答案例分享 #date:21:34 2011-11 ...
用shell批量修改文件名
在一个文件夹中如果文件名有固定形式,而希望实现批量修改文件名时,可以使用shell脚本代码如下将文件名中的a替换成b for i in *.txt; do mv $i `echo $i | se ...
python 修改文件名_【学习分享】利用python批量修改文件名
1 前言分享一个利用python批量修改文件名的方法,我们以前分享过用DOS命令来批量修改文件名,但是如果要修改多个文件夹内的文件名,用DOS命令就不好处理了,我们就来分享一下如何用python处理 ...
python 修改文件名_Python 批量修改文件名
本篇梳理了批量修改文件名的Python代码. import os import numpy as nppath = 'C:/Users/Owen/PycharmProjects/Create_File ...
【Excel】VBA批量修改文件名
Excel:VBA批量修改文件名 Dim filePath As Variant '定义filepath为变量 Dim obj As Object '定义obj为变量对象 Dim fld, ff, g ...
rename 批量修改文件名简单用法
有的时候我们需要批量创建文件做测试,为了做区分,一般只要稍稍动动文件名即可,MV命令既可以移动文件,也是可以修改文件名的,但批量修改文件名MV做不到,此时,我们可以用rename命令批量修改是蛮不错的 ...
ML二：python批量修改文件名-测试KDTree
(1):#批量修改文件名 import os import numpy as np import string import shutil prefix =''#单引号,前缀! sufix ='txt ...
python改文件名_python批量修改文件名、批量修改xml文件的path和filename
1. python批量修改文件名(控制文件名的起始编号) import os path = "E:/Project/label/fire/" # 目标路径 filename_lis ...

VBS批量修改文件名

VBS批量修改文件名相关推荐

最新文章

热门文章