R脚本实现bilidown下载的视频汇总

写这个脚本的缘由是bilidown默认下载视频会把每个视频（除分P视频之外）单独保存在一个文件夹里，且这个文件夹里还有个临时文件夹tmp。当你需要批量导入这些下载的视频时就非常麻烦，要分别点开每个文件夹，而且文件夹的命名是一串没有规律的数字，非常不方便。但当你把这些视频汇总至一个文件夹后，这些问题就迎刃而解了。

确定目标：把每个视频从G:/Bilidown/download/save_folder里汇总到E:/badai/MP4文件夹，并删除原视频所在文件夹。

根据个人习惯设置，我习惯把个人媒体文件放到E盘。

1 bilidown视频保存路径:

bilidown视频保存路径

2 download文件夹：

3 save_folder文件夹：

4 R脚本：

setwd("G:/Bilidown/download")
sourceFolder = "save_folder"
targetFolder = "E:/badai/MP4"
do   = list.files(sourceFolder, full.names = TRUE)
for(i in 1:length(do)){
  video_file = list.files(do[i], ".mp4", full.names = TRUE)
  cat("copyying flie:", video_file, "\n")
  file.copy(video_file, targetFolder)
  unlink(do[i], recursive = T)
}

4 运行结果

运行脚本之后的save_foler文件夹：

当然是空的，因为全都被删掉了~

运行脚本之后的E:/badai/MP4文件夹：

save_folder

所有的视频文件都被转移到这个文件夹里了~

---

岂不妙哉？

by the way，我是用RStudio运行的。

没干正事的一天惹~