VBA删除某些文件夹下的所有文件

VBA删除某些⽂件夹下的所有⽂件‘写完就发现这个代码不⽤写得这么重复的Sub shanchuwenjian()Dim str As StringDim str2 As String'这个vba代码是后