在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方法將文件重命名。最后釋放對象。可以根據具體需求修改文件名的規則。
