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

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/

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/

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/

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

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/