Excel VBA - deleting populated folder problem
I can delete an empty folder with RmDir, but how do I delete a populate
folder and all its sub-folders? Pau -- Message posted from http://www.ExcelForum.com |
Excel VBA - deleting populated folder problem
Hi Paul,
Here is some code Dim sFile Dim sPath As String sPath = "C:\NewDir\myTest" Do sFile = Dir(sPath & "\*.*") If sFile < "" Then Kill sPath & "\" & sFile End If Loop Until sFile = "" RmDir sPath -- HTH Bob Phillips ... looking out across Poole Harbour to the Purbecks (remove nothere from the email address if mailing direct) "PaulC " wrote in message ... I can delete an empty folder with RmDir, but how do I delete a populated folder and all its sub-folders? Paul --- Message posted from http://www.ExcelForum.com/ |
Excel VBA - deleting populated folder problem
Paul,
See www.cpearson.com/excel/Recycle.htm for information and example code about using the SHFileOperation API call to delete a file or folder to the recycle bin. -- Cordially, Chip Pearson Microsoft MVP - Excel Pearson Software Consulting, LLC www.cpearson.com "PaulC " wrote in message ... I can delete an empty folder with RmDir, but how do I delete a populated folder and all its sub-folders? Paul --- Message posted from http://www.ExcelForum.com/ |
Excel VBA - deleting populated folder problem
Just another way:
Function DeleteFolder(sFolder As String) As Boolean '// Dana DeLouis '// = = = = = = = = = = '// Folder can have Wildcard Characters '// True if folders with the read-only attribute set are to be deleted '// = = = = = = = = = = On Error Resume Next With CreateObject("Scripting.FileSystemObject") .DeleteFolder sFolder, True DeleteFolder = Err.Number = 0 End With End Function Sub TestIt() Dim Status As Boolean Status = DeleteFolder("D:\Junk") ' Delete all Temp* Folders Status = DeleteFolder("D:\Temp*") End Sub HTH -- Dana DeLouis Using Windows XP & Office XP = = = = = = = = = = = = = = = = = "PaulC " wrote in message ... I can delete an empty folder with RmDir, but how do I delete a populated folder and all its sub-folders? Paul --- Message posted from http://www.ExcelForum.com/ |
Excel VBA - deleting populated folder problem
Thanks Bob
Code works fine. Now I am working on extending it to all the subfolder that I have. If I can't solve this I may get back to you. Pau -- Message posted from http://www.ExcelForum.com |
Excel VBA - deleting populated folder problem
Pleasure Paul.
Of course you can. As a starter, I would use FileSystemObject in a recursive routine. If you do post back, start a new thread as this one will die shortly. -- HTH Bob Phillips ... looking out across Poole Harbour to the Purbecks (remove nothere from the email address if mailing direct) "PaulC " wrote in message ... Thanks Bob Code works fine. Now I am working on extending it to all the subfolders that I have. If I can't solve this I may get back to you. Paul --- Message posted from http://www.ExcelForum.com/ |
All times are GMT +1. The time now is 12:28 PM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com