2017-05-19 2 views
-1

폴더에 500 개의 비디오 파일이 있으며 이름을 모두 바꾸기를 원합니다. 이전 이름과 새 이름이 모두있는 두 개의 열이있는 CSV 파일을 사용하고 있습니다. 이 코드를 시도하고 오류가 발생합니다. 누군가이 코드를 수정하거나 새로운 코드로 나를 도울 수 있습니까?CSV 파일을 사용하여 여러 파일의 이름을 바꾸는 VBScript

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 
+4

오류 내용을 게시하십시오. –

+0

처음보세요 :'FSO.MoveFile "& i' - 그 외로운 큰 따옴표가 맞지 않을 수 있습니다 – Filburt

+1

두번째보기 :'FSO''' objFSO'라는 변수가 없습니다 –

답변

1

왜 배치가 아니겠습니까?

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

PowerShell 왜? (upvoted 그럼에도 불구하고) – Filburt

+0

이 경우 일괄 더 간단한 구문이 있습니다. –

+0

그냥 놀리는 (the OP) - 배치 ... 여기 정말 매끄러운 보이는 배치 코드가 작동하지 – Filburt