Deleteing a folder within a folder

[Jason]

I need a script that will delete folders within a folder.
Not files withing a folder.

 

[MS Newsgroups]

This should do the trick..

'***********
Dim oFSO
Dim oFolder
Dim sFolder
Dim item

sFolder="c:\MyRootFolder"
Set oFSO=CreateObject("scripting.filesystemobject")
Set oFolder=oFSO.GetFolder(sFolder)

For Each item In oFolder.SubFolders
item.delete
next
'***********

Regards

Niclas Lindblom