Deleting Sub Directories 1

[Rob23]

Does anyone know of an easy way to grab a <root folder> and delete all sub directories under that folder without deleting the <root folder>?

Thanks,
Rob

 

[PHV]

Try something like this:

Set fso=CreateObject("Scripting.FileSystemObject")
Set rf=fso.GetFolder("\path\to\root")
Set sf=rf.SubFolders
For Each f In sf
  f.Delete True
Next

Hope This Help
PH.