[已解决]如何一次性删除文件夹里的子文件夹

2198596388

麻烦高手帮写个vba代码,效果要求：一次性删除“汇总”文件夹里的”英语“、”语文“、”数学“、”综合“4个子文件夹。先谢谢了！附件 汇总.zip (62.38 KB, 下载次数: 7)

2016-6-25 13:28 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

老司机带带我

2016-6-25 13:58

1. Sub xx()
   
2.     Dim fd, Mypath$
   
3.     Set fso = CreateObject("Scripting.FileSystemObject")
   
4.     Mypath = ThisWorkbook.Path & ""
   
5.     Set fd = fso.GetFolder(Mypath)
   
6.     For Each sfd In fd.SubFolders
   
7.         sfd.Delete
   
8.     Next
   
9. End Sub

复制代码

跳转到最佳答案楼层

老司机带带我

1. Sub xx()
   
2.     Dim fd, Mypath$
   
3.     Set fso = CreateObject("Scripting.FileSystemObject")
   
4.     Mypath = ThisWorkbook.Path & ""
   
5.     Set fd = fso.GetFolder(Mypath)
   
6.     For Each sfd In fd.SubFolders
   
7.         sfd.Delete
   
8.     Next
   
9. End Sub

复制代码

2198596388

老司机带带我 发表于 2016-6-25 13:58

非常漂亮的代码！老司机辛苦了！非常感谢！！！

张雄友

标记一下……

ycb20010823

非常完美的代码，赞一个！！