VBScript使用CSV文件重命名多个文件

Question

我在一个文件夹中有500个视频文件，我想要重命名所有这些文件。我使用的CSV文件有两列，包含旧名称和新名称。我试过这个代码，它给了我一个错误。有人可以帮助我修复此代码或帮助我使用新代码。

Option Explicit     
Dim objFile, strLine    
Dim objFSO, aline, i  
Set objFSO = CreateObject("Scripting.FileSystemObject")     
Set objFile= objFSO.OpenTextFile("List.csv", 1)     

Do While Not objFile.AtEndOfStream     
strLine = objFile.readline     
aline = Replace(strLine,",",""", """)               

i = """" & aline & """"  

FSO.MoveFile & i

Loop


objFile.Close

Answer 1

为什么不批量？

FOR /F "tokens=1,2 delims=," %%A IN ('TYPE List.csv') DO ( 
IF EXIST %%A ( 
REN %%A %%B
) ELSE (
ECHO %%A NOT FOUND!!!
)
)