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

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!!! 
) 
)