Hi John, After a bit of thinking: # fill in the appropriate path and pattern filenames<-list.files(path=???,pattern=???) for(filename in filenames) { filefirst<-sapply(strsplit(filename,"[.]"),"[",1) # delete all non-digits fileno<-gsub("[^[:digit:]]","",filefirst) file.rename(filename,paste("01Gen",fileno,".mp3",sep="")) }
Jim ______________________________________________ R-help@r-project.org mailing list -- To UNSUBSCRIBE and more, see https://stat.ethz.ch/mailman/listinfo/r-help PLEASE do read the posting guide http://www.R-project.org/posting-guide.html and provide commented, minimal, self-contained, reproducible code.