批量修改文件名

fil_nam <- list.files("E:/BaiduNetdiskDownload/",full.names = T) 
re_nam <- fil_nam %>% str_replace_all("rm_str", "new_str")
file.rename(fil_nam, re_nam)