1 파일명 바꾸기

file.rename(from, to)

smi <- list.files("G:\\동영상\\자막", full.name=TRUE)
f <- list.files("G:\\동영상\\영상", full.name=FALSE)[1:75]

for(i in 1:length(f)){
  from <- smi[i]
  to <-paste0("G:\\동영상\\자막\\", gsub(".mp4", ".smi", f[i]))
  file.rename(from, to)
}