这里我们先分别创建5个Excel、Word和PPT文档作为示例数据，然后实现将这三种类型的文件分别放在xlsx、docx和pptx文件夹内。

创建data文件夹 fs::dir_create("data") # data文件夹下创建示例文件 filetype = c("xlsx", "docx", "pptx") x = outer(1:5, filetype, FUN = paste, sep = ".") filelist = paste0("./data/", x) fs::file_create(filelist) # data文件夹下每类文件创建一个文件夹 dirlist = paste0("./data/", filetype) fs::dir_create(dirlist) # 移动文件到相应的文件夹 for (i in filetype) { fs::dir_ls("./data", glob = paste0("*.", i)) |> …