Home |
Search |
Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
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/ |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
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/ |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
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/ |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
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/ |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
how can I specific a folder with wildcard criteria and excel will import all the correct files in that folder? | Excel Discussion (Misc queries) | |||
Excel VBA - Copy Folder problem | Excel Programming | |||
Deleting Files in Folder | Excel Programming | |||
VB Excel file multiple opening from a folder problem | Excel Programming | |||
Strange problem with a dynamically populated tabstrip on a worksheet | Excel Programming |