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

如果是这样的话可以做到，但是会有一个问题，文件夹中的文件没办法确定先后顺序，很有可能名字的顺序是错误的，实际上顺序是乱的。无法保证正确顺序
创建个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"

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

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

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

3、输入新文件名称后，回车。

原来的文件名要保存吗？