vbs批量修改文件名

Dim sFolders, Ext, message, filenamesFolder = "D:\图片库\随机样本"Dim fs, oFolder, oFiles, oSubFoldersset fs = CreateObject("Scripting.FileSystemObject")set oFolder = fs.GetFolder(sFolder)     '获取文件夹set oFiles = oFolder.Files              '获取文件集合index = 1for each strFile in oFiles    strNewName = "a_" & index & ".jpg"     fs.MoveFile strFile, sFolder & "\" & strNewName      index = index + 1Nextindex = 1for each strFile in oFiles    strNewName = index & ".jpg"     fs.MoveFile strFile, sFolder & "\" & strNewName      index = index + 1Next