我想复制文件名后四位为0206的文件到新文件夹，请修改下面代码 setwd("E:\\LAI\\GLASS_LAI\\IWEMS_LAI\\") #包含需要内容复制文件夹-的上一级文件夹 currentfiles <- "E:/LAI/GLASS_LAI/IWEMS_LAI/8118/" #要复制的文件夹名 newfiles <- "E:/LAI/GLASS_LAI/IWEMS_LAI/8118x/" #复制到的文件夹名 copy <- list.files(currentfiles, pattern="(0206)\\.tif") #设置筛选的内容-筛选5月 15_05_12.tif #copy # 复制选中文件 sapply(copy,function(x){file.copy(paste(currentfiles,x,sep="/"),newfiles,)}) #删除原始文件 #sapply(copy,function(x){file.remove(paste(currentfiles,x,sep="/"))})

请修改以下代码：

setwd("E:/LAI/GLASS_LAI/IWEMS_LAI/")  #包含需要内容复制文件夹-的上一级文件夹
currentfiles <- "8118/"  #要复制的文件夹名
newfiles <- "8118x/"  #复制到的文件夹名

copy <- list.files(paste(currentfiles, sep = ""), pattern = "(0206)\\.tif")  #筛选文件名后四位为0206的文件
sapply(copy, function(x) {file.copy(paste(currentfiles, x, sep = ""), paste(newfiles, x, sep = ""), overwrite = TRUE)})  #复制选中文件到新文件夹

#如果需要删除原始文件，取消以下代码段的注释
#sapply(copy, function(x) {file.remove(paste(currentfiles, x, sep = ""))})

这段代码将把文件夹8118中文件名后四位为0206的文件复制到文件夹8118x中。如果需要删除原始文件，可以取消掉最后一行代码的注释。