Skip to content
Prev 371579 / 398506 Next

rename multiple files by file.rename or other functions

Hi John,
Maybe this:

filenames<-c("XYZW01Genesis_ABC.mp3","XYZW02Genesis_ABC.mp3")
for(filename in filenames) {
 filefirst<-sapply(strsplit(filename,"[.]"),"[",1)
 fileno<-sub("_","",gsub("[[:alpha:]]","",filefirst))
 file.rename(filename,paste("01Gen",fileno,".mp3",sep=""))
}

Jim
On Thu, Sep 28, 2017 at 7:37 PM, John <miaojpm at gmail.com> wrote: