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