VBS 파일명 변경

요즘 한시간 이상되는 출퇴근시간(>_<) 에 영화, 다큐, 애니 등등 찾아서 보고 있다.

다운로드 받은 동영상 파일을 umile 로 인코딩후 P2 (내 MP4) 에 넣으려면

파일명을 avi 에서 svi로 변경을 해야 한다.

그냥 f2 를 누르고 하나하나 바꾸다보니

뭐하고 있나 하고 생각이 들어

파일명을 변경하는 스크립트를 간단히 만들어 봤따.

strPath = "."
Set fso = CreateObject("Scripting.FileSystemObject")
Set dir = fso.GetFolder(strPath)
str = "이름변경된 파일" & vbCrLf
For Each f1 In dir.Files
 fName = Mid(f1.Name, 1, InstrRev(f1.Name,".")-1)
 fExt = Mid(f1.Name, InstrRev(f1.Name,".")+1)
 If( fExt = "avi" ) Then
  str = str & fName & vbCrlf
  fso.MoveFile f1.Name, fName&".svi"
 End If
Next
MsgBox str

avi 확장명이 있으면 svi 로 변경을 한다.

동영상 파일이 있는 폴더에 두고 실행을 하면 된다.

avi2svi.vbs

svi2avi.vbs

p.s. 최근에 [NHK 우주 대기행] 을 봤는데 강추

       별의 폭발로 원소들이 생겨난다는 사실~ 오호~