2019-12-23小白新手笔记 将压缩包多个文件下的子文件（

rm(list=ls())

setwd("C:\\Users\\zhouwenqing789\\Desktop\\生信分析\\生信解压缩文件")

files=list.files()  #取某文件（生信解压缩文件）下所有文件名做一个字符向量，若取某些格式，则需用patten

lujin=paste(getwd(),"/",files,sep = "")  #将生信压缩文件下所有的路径名提取并赋予lujin

n=length(lujin)

dir.create(paste(getwd(),"/newdir",sep = "")) #创建新的工作路径

new_dir=paste(getwd(),"/newdir",sep = "")  #并将新路径命名赋值，便于后面的书写

for(i in 1:n){

  word_dir=list.files(lujin[i],pattern = ".gz")##".gz"为文件的形式，取lujin下gz格式的文件名并赋值给word_dir

  aaa=paste(lujin[i],"/",word_dir,sep = "")  #再将“gz”文件的全部路径写出来，记住lujin[i]不用加引号，否则报错

  file.copy(from = aaa,to=new_dir)          # 将原来的文件路径下的东西复制到新的文件目录下  

}