如何使用VBScript重命名目录中的文件，并在文件夹中的所有文件前加上文件夹名？

Set fso = CreateObject("Scripting.FileSystemObject")

' 指定目标文件夹路径
folderPath = "C:\目标文件夹路径"

' 获取目标文件夹对象
Set folder = fso.GetFolder(folderPath)

' 遍历目标文件夹中的所有文件
For Each file In folder.Files
    ' 获取文件名和文件夹名
    fileName = file.Name
    folderName = folder.Name
    
    ' 重命名文件，将文件夹名添加到文件名前
    newFileName = folderName & "_" & fileName
    file.Name = newFileName
Next

' 释放对象
Set fso = Nothing