CSVファイルを使用して複数のファイルの名前を変更するVBScript

Question

フォルダに500個のビデオファイルがあり、すべての名前を変更します。古い名前と新しい名前の2つの列を持つ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!!! 
) 
)