将文件移至R中的父文件夹

Question

我的文件结构与此类似：

d：/bu1/rp1/_archive/

d：/bu1/rp2/_archive/

d：/bu1/rp3/_archive/

d：/bu2/rp1/_archive/

d：/bu2/rp2/_archive/

d：/bu3/rp1/_archive/

d：/bu4/rp1/_archive/

d：/bu4/rp2/_archive/

并希望将文件移动到其各自的父文件夹中（例如，从d：/bu1/rp1/rp1/_archive/d：/bu1/rp1）。

我将每个存档文件夹路径存储为列表，并认为相对简单的循环应该可以完成工作 - 我只是不确定如何将文件指向父目录。

<</p>

Answer 1

对不起，这没有测试（因为我不知道您要复制了多少个文件），但是类似的东西可能有效

#recreating your directory structure
old_dirs <- list('D:/bu1/rp1/_archive/',
  'D:/bu1/rp2/_archive/',
  'D:/bu1/rp3/_archive/',
  'D:/bu2/rp1/_archive/',
  'D:/bu2/rp2/_archive/',
  'D:/bu3/rp1/_archive/',
  'D:/bu4/rp1/_archive/',
  'D:/bu4/rp2/_archive/')
#splitting filepaths at underscore, which is not really generalized
#but works for your example
new_dirs <- strsplit(unlist(old_dirs), '_')
new_dirs <- lapply(new_dirs, '[[', 1)
#this loop probably needs some work
for(i in old_dirs) {
  all_files <- list.files(old_dirs[[i]])
  file.copy(old_dirs[[i]], new_dirs[[i]])
}

Answer 2

尝试使用批处理文件：

SET DIRNUMBER=1
SET DIRSRC=C:bu%DIRNUMER%rp%DIRNUMER%_archive
SET DIRDST=C:bu%DIRNUMER%rp%DIRNUMER%
xcopy %DIRSRC% %DIRDST%