R语言怎么批量移动（复制）文件

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

我有一个文件夹里面有若干文件，我将这些文件的文件名读取给f，提取出f中某一部分关键字眼作为向量n_all；现在有一个它的子向量rm_mot，这两个向量事实上都是文件名的某一关键部分，我想要将n_all==rm_all得文件移动到另外一个文件夹里。

1. setwd('E:\\Analysis\\FC_TXT_ALL') #设置工作路径
   
2. f = dir(pattern ='*.txt' ) #读取所有被试FC的文件名

复制代码

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：工作路径 关键部分 文件名 文件夹 关键字 R语言 R语言软件

1. setwd('E:\\Analysis\\FC_TXT_ALL') #设置工作路径
   
2. rm_mot <- as.vector(as.matrix(read.table('E:\\Analysis\\SubjectList_removed motion.txt',
   
3.                                          header=F))) #读取去除头动较大后的被试名
   
4. f = dir(pattern ='*.txt' )  #读取所有被试FC的文件名
   
5. nchar('ROICorrelation_FisherZ_sub-031274.txt')  #查看名字长度
   
6. n_all <- substring(f,24,33) #提取出被试名用以后续比较
   
7. for(i in 1:length(f))
   
8.   for(j in 1:length(rm_mot))
   
9.     if (n_all[i]==rm_mot[j]){
   
10.       eval(parse(text=paste('file.copy("E://Analysis//FC_TXT_ALL//f[',i,']","E://Analysis//FC_TXT_RM//f[',i,']")',sep='')))
    
11.       
    
12.     }#输入完这个for循环后并没有在新的文件夹里找到复制移动的文件

复制代码

请求大佬帮助。
事实上，我们问题很简单，就是在满足条件（if）的情况下，将文件移动到另一个文件夹

我也遇到了同样的问题 请问楼主解决了吗