Skip to content
Prev 349844 / 398513 Next

recursively rename dir and files

Hi maxbre,
Try this:

recursive_replace<-function(path=".",replace=" ",with="_") {
 filelist<-list.files(path,full.names=TRUE)
 for(filename in filelist) {
  if(length(grep(replace,filename)))
   file.rename(filename,gsub(replace,with,filename))
 }
 dirlist<-list.dirs(path,full.names=TRUE,recursive=FALSE)
 if(length(dirlist)) {
  for(dirname in dirlist)
   recursive_replace(dirname,replace=replace,with=with)
 }
}

Jim
On Fri, Apr 10, 2015 at 5:58 AM, maxbre <mbressan at arpa.veneto.it> wrote: