Dim sFolders, Ext, message, filename
sFolder = "D:\图片库\随机样本"
Dim fs, oFolder, oFiles, oSubFolders
set fs = CreateObject("Scripting.FileSystemObject")
set oFolder = fs.GetFolder(sFolder) '获取文件夹
set oFiles = oFolder.Files '获取文件集合
index = 1
for each strFile in oFiles
strNewName = "a_" & index & ".jpg"
fs.MoveFile strFile, sFolder & "\" & strNewName
index = index + 1
Next
index = 1
for each strFile in oFiles
strNewName = index & ".jpg"
fs.MoveFile strFile, sFolder & "\" & strNewName
index = index + 1
Next
vbs批量修改文件名
最新推荐文章于 2023-11-24 15:19:30 发布