[已解决]求助删除文件夹里面的记事本所有文件代码

清华

求助删除文件夹里面的记事本所有文件代码

最佳答案

月排行榜 / 总排行榜

wayy

2012-5-18 13:44

1. Sub wayy()
   
2. Dim mypath As String
   
3. Dim dirname As String
   
4. mypath = ThisWorkbook.Path & ""
   
5. dirname = Dir(mypath & "\*.txt")
   
6. Do While dirname <> ""
   
7.   Kill mypath & dirname
   
8.   dirname = Dir
   
9. Loop
   
10. End Sub

复制代码

跳转到最佳答案楼层

wayy

就是删除所有的txt文件吗？
dir *.txt
然后kill就行了

wayy

1. Sub wayy()
   
2. Dim mypath As String
   
3. Dim dirname As String
   
4. mypath = ThisWorkbook.Path & ""
   
5. dirname = Dir(mypath & "\*.txt")
   
6. Do While dirname <> ""
   
7.   Kill mypath & dirname
   
8.   dirname = Dir
   
9. Loop
   
10. End Sub

复制代码