在R中将图像子集到单独的文件夹中

我有一个文件夹，里面有几千个文件。我想将所有这些文件子集到单独的子文件夹中，每个子文件夹有15个文件（不管哪个文件去哪里或子文件夹名）。基本上，我需要在一个程序中处理这些文件，我想把它们分解成文件夹，里面有更小、更易于管理的文件

要做到这一点，您需要几个函数

list.files

获取所有文件名

dir.create

创建目录和

文件。重命名

以移动文件

AllFiles = list.files("TheFolder")

## Make all of the folders
FolderNumber = floor(1:length(AllFiles)/15) + 1
FolderName = sprintf("Folder%03d", FolderNumber)
for(f in unique(FolderName)) { dir.create(f) }

## Move the files
for(i in 1:length(AllFiles)) {
    file.rename(paste("TheFolder", AllFiles[i], sep="/"),
        paste(FolderName[i], AllFiles[i], sep="/"))
}

---

如果您想谨慎，可以使用

file.copy

而不是

file.rename

。这将在不删除原件的情况下将副本复制到文件夹中，以便您可以在删除之前检查一切是否正常

你在用什么操作系统？您可能需要使用脚本语言来实现这一点。某些脚本可能是特定于操作系统的。这里有一个与操作系统无关的python解决方案：我想使用RI来获得这个错误：文件中有错误。重命名（粘贴（“TheFolder”），所有文件[I]，sep=“/”），粘贴（FolderName[I]，：“from”和“to”的长度不同，从和到的长度都应该为1。要查看什么不起作用，只需键入

I=1

然后

粘贴（“TheFolder”），AllFiles[i]，sep=“/”

和

粘贴（FolderName[i]，AllFiles[i]，sep=“/”

都可以工作吗？是的，粘贴（“TheFolder”，AllFiles[i]，sep=“/”）返回“TheFolder/NA”，粘贴（FolderName[i]，AllFiles[i]，sep=“/”）返回“Folder001/NA”只是为了确定-您确实更改了“TheFolder”作为文件夹的名称，对吗？您只是键入了Allfiles，而不是Allfiles。f/f是否正确？