在VB中，可以使用FileSystem对象的MoveFile方法来批量修改文件名。以下是一个示例代码：
Sub RenameFiles()
Dim fso As Object
Dim folder As Object
Dim file As Object
Dim oldName As String
Dim newName As String
' 创建FileSystemObject
Set fso = CreateObject("Scripting.FileSystemObject")
' 指定文件夹路径
Set folder = fso.GetFolder("C:\your\folder\path\")
' 遍历文件夹中的文件
For Each file In folder.Files
oldName = file.Name
newName = "new_" & oldName ' 修改文件名规则，这里添加前缀"new_"
' 修改文件名
fso.MoveFile file.Path, folder.Path & "\" & newName
Next file
' 释放对象
Set file = Nothing
Set folder = Nothing
Set fso = Nothing
End Sub
在上面的示例中，首先创建了一个FileSystemObject对象，然后指定了要修改文件名的文件夹路径。接着遍历文件夹中的文件，通过修改文件名规则来生成新的文件名，并使用MoveFile方法将文件重命名。最后释放对象。可以根据具体需求修改文件名的规则。
