批量把不同的文件夹内的多张图片重命名为文件夹名称相同的名称求代码

发布网友 发布时间：2022-03-04 08:15

我来回答

共5个回答

热心网友 时间：2022-03-04 09:44

如果是这样的话可以做到，但是会有一个问题，文件夹中的文件没办法确定先后顺序，很有可能名字的顺序是错误的，实际上顺序是乱的。无法保证正确顺序
创建个trans.txt 重命名为 trans.vbs，复制下边代码到trans.vbs中保存。双击运行

dim sFolder
sFolder = "G:\test" '这是要修改的多个文件夹的外层路径

dim fs
set fs = CreateObject("Scripting.FileSystemObject")
set oFolder = fs.GetFolder(sFolder)
set oSubFolders = oFolder.SubFolders
for each folder in oSubFolders
fname = folder.name
set files = folder.files
index = 1
for each f in files
newname = fname & "_" & index & ".txt"
fs.MoveFile f , sFolder & "\" & fname & "\" & newname
index = index + 1
next
next

Set objFSO = Nothing 
MsgBox "complete"

热心网友 时间：2022-03-04 11:02

操作步骤如下：
1、打开文件夹，按下ctrl键，依次点击要批量重命名的文件；
2、在起始文件上右击，选择重命名；

3、输入新文件名称后，回车。追问批量呢，这个我知道

热心网友 时间：2022-03-04 12:37

先用dir命令获取全部文件名 再粘贴到excel里面进行分列处理，之后保持格式不变，用&操作批量生成新文件名，然后用rename填充，最后粘贴到一个空文本文档里面，改格式为bat文件，放到图片所在文件夹运行就可以了。追问看不懂啊

热心网友 时间：2022-03-04 14:28

先用dir命令获取全部文件名 再粘贴到excel里面进行分列处理，之后保持格式不变，用&操作批量生成新文件名，然后用rename填充，最后粘贴到一个空文本文档里面，改格式为bat文件，放到图片所在文件夹运行就可以先用dir命令获取全部文件名 再粘贴到excel里面进行分列处理，之后保持格式不变，用&操作批量生成新文件名，然后用rename填充，最后粘贴到一个空文本文档里面，改格式为bat文件，放到图片所在文件夹运行就可以了。。先用dir命令获取全部文件名 再粘贴到excel里面进行分列处理，之后保持格式不变，用&操作批量生成新文件名，然后用rename填充，最后粘贴到一个空文本文档里面，改格式为bat文件，放到先用dir命令获取全部文件名 再粘贴到excel里面进行分列处理，之后保持格式不变，用&操作批量生成新文件名，然后用rename填充，最后粘贴到一个空文本文档里面，改格式为bat先用dir命令获取全部文件名 再粘贴到excel里面进行分列处理，之后保持格式不变，用&操作批量生成新文件名，然后用rename填充，最后粘贴到一个空文本文档里面，改格式为bat文件，放到先用dir命令获取全部文件名 再粘贴到excel里面进行分列处理，之后保持格式不变，用&操作批量生成新文件名，然后用rename填充，最后粘贴到一个空文本文档里面，改格式为bat文件，放到图片所在文件夹运行就可以了。片所在文件夹运行就可以了。，放到图片所在文件夹运行就可以了。所在文件夹运行就可以了。

热心网友 时间：2022-03-04 16:36

原来的文件名要保存吗？