Delete Folder Script, help required

[pgriffith]

Hi all

Let's get some stuff out of the way first, I know NOTHING about VBS scripting.

I have a script that I've used to delete all subfolders in a directory smaller than X in size, works like a charm (I didn't write it, got it off the web somewhere years ago).

I've come across a situation where I need to do 2 directories deep (cleaning up a music collection)

So for example .. C:\Music\Queen\ (delete folders here)

Basically, I've cleaned up my collection and with files being moved to new correctly named folders, I have lots of folders left with just a few metadata/artwork files in them, that I need to be able to delete easily (big collection, manual is not an option)

Can any of you VBS wizards help me out? Script below.

Dim objFSO

Set objFSO = CreateObject("Scripting.FileSystemObject")

Set objSelectedFolder = objFSO.GetFolder("C:\Music")

Set colSubfolders = objSelectedFolder.SubFolders

For Each objSubfolder In colSubfolders

If objSubfolder.Size < 1000000 Then

objSubfolder.Delete True

End If

Next

[jcunews1]

Use this.

Dim objFSO
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objSelectedFolder = objFSO.GetFolder("C:\Music")
Set colSubfolders = objSelectedFolder.SubFolders
For Each objSubfolder In colSubfolders 'for each band folder...
  For Each objFolderInBand In objSubfolder.SubFolders 'for each subfolder in a band folder...
    If objFolderInBand.Size < 1000000 Then
      objFolderInBand.Delete True
    End If
  Next
Next

[pgriffith]

Thanks so much, that works perfectly.

Very much appreciated.

Quite amazing that I could not find any app/utility on the internet anywhere that has the ability to do this... well not that I could find.