{"id":70093,"date":"2005-04-05T17:11:00","date_gmt":"2005-04-05T17:11:00","guid":{"rendered":"https:\/\/blogs.technet.microsoft.com\/heyscriptingguy\/2005\/04\/05\/how-can-i-delete-a-folder-and-all-its-subfolders\/"},"modified":"2005-04-05T17:11:00","modified_gmt":"2005-04-05T17:11:00","slug":"how-can-i-delete-a-folder-and-all-its-subfolders","status":"publish","type":"post","link":"https:\/\/devblogs.microsoft.com\/scripting\/how-can-i-delete-a-folder-and-all-its-subfolders\/","title":{"rendered":"How Can I Delete a Folder and All Its Subfolders?"},"content":{"rendered":"

\"Hey, \n

Hey Scripting Guy! How can I delete a folder and all its subfolders?

— FB<\/P>\"Spacer\"\"Hey,\"Script<\/A> \n

Hey, FB. You know, a lot of people think the Scripting Guys know everything there is to know about scripting. Let\u2019s put it this way: we wish. In fact, it\u2019s only when we begin to think that we do<\/I> know something about scripting that we get ourselves into trouble.<\/P>\n

Take (please!) this seemingly-simple little question about deleting a folder and all its subfolders. One of the Scripting Guys (Greg asked us not to mention his name, to save him from embarrassment) thought this was easy; in fact, he already had<\/I> a script that could delete a folder and its subfolders:<\/P>

strComputer = “.”\nSet objWMIService = GetObject(“winmgmts: \\\\” & strComputer & “\\root\\cimv2”)<\/p>\n
Set colFolders = objWMIService.ExecQuery _\n    (“Select * from Win32_Directory where Name = ‘c:\\\\Scripts'”)<\/p>\n
For Each objFolder in colFolders\n    errResults = objFolder.Delete\nNext\n<\/PRE>\n
Our unnamed Scripting Guy grabbed the script, did a quick test on his Windows XP Service Pack 1 computer and on a Windows 2000 computer, and discovered that the script worked just fine. With yet another job well done, he then took the rest of the day off and began planning how he would spend the huge bonus he would undoubtedly receive for having successfully solved this problem.<\/P>\n
It was only later that another Scripting Guy (and – alas – the newest member of the team at that) pointed out that his script – which worked perfectly well back in the Dark Ages of computing – no longer functioned in the modern world; in particular, it failed on any Windows XP computer running Service Pack 2. Why? Well, in Service Pack 1 you delete a folder and all its contents, including any subfolders<\/I>, with no questions asked. In Service Pack 2, however, the behavior of the Win32_Directory class has changed. On a computer running SP2, a folder cannot be deleted if it contains even a single subfolder; instead, you generate a \u201cFolder not empty\u201d error. Ouch! In fact, using WMI the only way to delete a folder in SP2 is to first delete all its subfolders. And, of course, before you can delete a subfolder you have to delete all of its subfolders. And before you can delete any of those – well, it just goes on and on from there.<\/P>\n
Of course a lesser person would have given up at that point, and just told you that, \u201cThere\u2019s no way to delete a folder and all its contents.\u201d And that\u2019s exactly what our anonymous Scripting Guy was going to do. However, under intense pressure from his colleagues, he came up with this solution instead, one that creates a list of the entire folder tree and then methodically deletes folders from the bottom to the top. And don\u2019t worry, we\u2019ll tell you what that all means in a minute.<\/P>\n
Here\u2019s a script that ought to work on any version of Windows (or at least any version of Windows with WMI installed):<\/P>
Dim arrFolders()\nintSize = 0<\/p>\n
strComputer = “.”\nSet objWMIService = GetObject(“winmgmts:\\\\” & strComputer & “\\root\\cimv2”)<\/p>\n
strFolderName = “c:\\scripts\\archive”<\/p>\n
Set colSubfolders = objWMIService.ExecQuery _\n    (“Associators of {Win32_Directory.Name='” & strFolderName & “‘} ” _\n        & “Where AssocClass = Win32_Subdirectory ” _\n            & “ResultRole = PartComponent”)<\/p>\n
ReDim Preserve arrFolders(intSize)\narrFolders(intSize) = strFolderName\nintSize = intSize + 1<\/p>\n
For Each objFolder in colSubfolders\n    GetSubFolders strFolderName\nNext<\/p>\n
Sub GetSubFolders(strFolderName)\n    Set colSubfolders2 = objWMIService.ExecQuery _\n        (“Associators of {Win32_Directory.Name='” & strFolderName & “‘} ” _\n            & “Where AssocClass = Win32_Subdirectory ” _\n                & “ResultRole = PartComponent”)<\/p>\n
    For Each objFolder2 in colSubfolders2\n        strFolderName = objFolder2.Name\n        ReDim Preserve arrFolders(intSize)\n        arrFolders(intSize) = strFolderName\n        intSize = intSize + 1\n        GetSubFolders strFolderName\n    Next\nEnd Sub<\/p>\n
For i = Ubound(arrFolders) to 0 Step -1\n    strFolder = arrFolders(i)\n    strFolder = Replace(strFolder, “\\”, “\\\\”)\n    Set colFolders = objWMIService.ExecQuery _\n        (“Select * from Win32_Directory where Name = ‘” & strFolder & “‘”)<\/p>\n
    For Each objFolder in colFolders\n        errResults = objFolder.Delete\n    Next\nNext\n<\/PRE>\n
We won\u2019t even attempt to walk through this code line-by-line; instead we\u2019ll just give you a rough idea of what we\u2019re doing, and why, and point you to some additional resources if you need more information.<\/P>\n
To begin with, let\u2019s say C:\\Scripts\\Archive looks like this:<\/P>\"Folder \n
We can\u2019t delete the Archive folder right away; that\u2019s because of Subfolder A1 and Subfolder A2. And we can\u2019t delete Subfolder A1 right away; that\u2019s because of Subfolder B1. To get rid of the Archive folder we need to:<\/P>\n\n\n\n\n\n\n
\u2022<\/TD>\n\n
Delete Subfolder A2.<\/P><\/TD><\/TR>\n
\u2022<\/TD>\n\n
Delete Subfolder B1, clearing out Subfolder A1.<\/P><\/TD><\/TR>\n
\u2022<\/TD>\n\n
Delete Subfolder A1. With both Subfolder A1 and Subfolder A2 gone, we\u2019ll then be free to delete the Archive folder.<\/P><\/TD><\/TR>\n
\u2022<\/TD>\n\n
Delete the Archive folder.<\/P><\/TD><\/TR><\/TBODY><\/TABLE>\n
The approach we\u2019ve taken makes use of a recursive function; this function can identify all the subfolders of a folder, as well as all the subfolders of those subfolders. We won\u2019t discuss this function in any detail today; for an explanation of how it works, check out this Hey, Scripting Guy!<\/B><\/A> column.<\/P>\n
By necessity, our recursive function starts with the first folder – Archive – and then works its way down the tree. Unfortunately, that\u2019s a bit of a problem; after all, we need to start deleting folders from the bottom<\/I> of the tree and work our way up. There are probably lots of ways to handle this problem, but what we did was elect not to try deleting folders right away; instead, all we do is stash the folder paths into an array named arrFolders. Each time we encounter a new folder or subfolder we add the folder path to the array. When the recursive function finishes, our array will look like this:<\/P>
C:\\Scripts\\Archive\nC:\\Scripts\\Archive\\Subfolder A1\nC:\\Scripts\\Archive\\Subfolder A1\\Subfolder B1\nC:\\Scripts\\Archive\\Subfolder A2\n<\/PRE>\n\n<\/THEAD>\n\n\n
\n
Note<\/B>. We used a so-called \u201cdynamic\u201d array in this script; for more information about dynamic arrays – and about weird-looking commands like Redim Preserve<\/B> – please see this portion of the Microsoft Windows 2000 Scripting Guide<\/B><\/A>.<\/P><\/TD><\/TR><\/TBODY><\/TABLE>\n
<\/DIV>\n
Trust us: we\u2019re well aware that this was way<\/I> easier in Windows 2000. But at least now we\u2019re ready to start deleting folders. If you look at the items in our array, they happen to be exactly opposite of what we need; for example, the Archive folder is the first item in our array, but it has to be the last item that we delete. If we could invert the array – making the first last and the last first, to steal a phrase – we\u2019d be in business. That\u2019s where this block of code comes in:<\/P>
For i = Ubound(arrFolders) to 0 Step -1\n    strFolder = arrFolders(i)\n    strFolder = Replace(strFolder, “\\”, “\\\\”)\n    Set colFolders = objWMIService.ExecQuery _\n        (“Select * from Win32_Directory where Name = ‘” & strFolder & “‘”)<\/p>\n
    For Each objFolder in colFolders\n        errResults = objFolder.Delete\n    Next\nNext\n<\/PRE>\n
What we\u2019re doing here is reading our array from the bottom up. We\u2019re creating a loop that starts with the very last item in the array; that\u2019s what the Ubound<\/B> (upper bound) function is for. We\u2019re then going to work our way down to the first item in the array: item 0. (As you might recall, the first element in an array is always item 0, not<\/I> item 1.) The Step -1<\/B> function just means that we step backwards rather than forward: instead of going 0-1-2-3, we\u2019re going 3-2-1-0. This is how we can start deleting at the bottom of the tree.<\/P>\n
Of course, before we can do that we need to adjust the folder paths; that\u2019s what we do here:<\/P>
strFolder = Replace(strFolder, “\\”, “\\\\”)\n<\/PRE>\n
Our folder paths are going to look like this: C:\\Scripts\\Archive\\Subfolder A1\\Subfolder B1. That\u2019s fine, except that we need to include these paths in a WQL query. Consequently, we need to double up all the \\\u2019s, resulting in paths that look like this: C:\\\\Scripts\\\\Archive\\\\Subfolder A1\\\\Subfolder B1. We use the Replace<\/B> function to replace each \\ with \\\\.<\/P>\n
You\u2019re right: there\u2019s nothing<\/I> straightforward about this script, is there?<\/P>\n
With our new \\\\ folder paths we can then use WMI to connect to the folder in question and – at long last – use the Delete<\/B> method to actually delete the folder. That\u2019s what happens here:<\/P>
Set colFolders = objWMIService.ExecQuery _\n    (“Select * from Win32_Directory where Name = ‘” & strFolder & “‘”)<\/p>\n
For Each objFolder in colFolders\n    errResults = objFolder.Delete\nNext\n<\/PRE>\n
Having disposed of Subfolder B1, we can then start working our way up the tree, eventually deleting C:\\Scripts\\Archive.<\/P>\n
Five million lines of code later, we\u2019re done, and C:\\Scripts\\Archive has been deleted. We\u2019re not saying it\u2019s a particularly elegant solution, but it is<\/I> a solution, and it will work on all versions of Windows. And because it uses WMI, it works equally well on remote machines as it does on the local computer.<\/P>\n
So there you have it: deleting a folder and all its subfolders, a subject we\u2019ve vowed never to deal with again. Well, at least not until the next service pack comes out \u2026.<\/P>
\n
\n\n\n\n
\"Top<\/A>Top of page<\/A><\/TD><\/TR><\/TBODY><\/TABLE><\/DIV><\/p>\n","protected":false},"excerpt":{"rendered":"
Hey Scripting Guy! How can I delete a folder and all its subfolders?— FB Hey, FB. You know, a lot of people think the Scripting Guys know everything there is to know about scripting. Let\u2019s put it this way: we wish. In fact, it\u2019s only when we begin to think that we do know something […]<\/p>\n","protected":false},"author":595,"featured_media":87096,"comment_status":"open","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"_acf_changed":false,"footnotes":""},"categories":[1],"tags":[11,3,12,5,6],"class_list":["post-70093","post","type-post","status-publish","format-standard","has-post-thumbnail","hentry","category-scripting","tag-folders","tag-scripting-guy","tag-storage","tag-vbscript","tag-wmi"],"acf":[],"blog_post_summary":"
Hey Scripting Guy! How can I delete a folder and all its subfolders?— FB Hey, FB. You know, a lot of people think the Scripting Guys know everything there is to know about scripting. Let\u2019s put it this way: we wish. In fact, it\u2019s only when we begin to think that we do know something […]<\/p>\n","_links":{"self":[{"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/posts\/70093","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/users\/595"}],"replies":[{"embeddable":true,"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/comments?post=70093"}],"version-history":[{"count":0,"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/posts\/70093\/revisions"}],"wp:featuredmedia":[{"embeddable":true,"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/media\/87096"}],"wp:attachment":[{"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/media?parent=70093"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/categories?post=70093"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/tags?post=70093"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}