[已解决]请教，怎么用VBA删除一个文件夹的所有内容啊

逍遥007

请教，如题，我想用VBA，不想用处理。谢谢

最佳答案

月排行榜 / 总排行榜

骄傲无可救药

2012-1-31 21:59

1. 
   
2. sub 删除()
   
3. if Dir("C:\ls\*.*")<>"" then kill "C:\ls\*.*"
   
4. RmDir "C:\ls"
   
5. End sub
   

复制代码

C:\LS即为你想删除的文件夹路径。

跳转到最佳答案楼层

骄傲无可救药

1. 
   
2. sub 删除()
   
3. if Dir("C:\ls\*.*")<>"" then kill "C:\ls\*.*"
   
4. RmDir "C:\ls"
   
5. End sub
   

复制代码

C:\LS即为你想删除的文件夹路径。

逍遥007

谢谢，搞定

hrpotter

1. Sub 删除()
   
2.     Dim fs As Object
   
3.     Set fs = CreateObject("Scripting.FileSystemObject")
   
4.     If fs.FolderExists("d:\test") Then
   
5.         fs.DeleteFolder ("d:\test")
   
6.         fs.CreateFolder ("d:\test")
   
7.     Else
   
8.         MsgBox "文件夹不存在"
   
9.     End If
   
10. End Sub

复制代码