实现:
folder <- "c:/books" files <- list.files(folder) for(f in files){ newname <- sub('\\.zip','',f) file.rename(paste0(folder,'/',f),paste0(folder,'/',newname)) }
folder <- "c:/books" files <- list.files(folder) for(f in files){ newname <- sub('\\.zip','',f) file.rename(paste0(folder,'/',f),paste0(folder,'/',newname)) }