vb script to delete sub folders

[ful56_uk]

hi guys

does any one have any vb code that will the the folder contents of a folder on a local machine but leave the root folder in place

mark

[box_l]

deletes folders and files too

Dim fso, fldr
Set fso = CreateObject("Scripting.FilesystemObject")
 
Set fldr = fso.GetFolder("c:\test_area")
 
'delete subfolders
For Each subf In fldr.SubFolders

subf.Delete True

Next

'delete subfiles
For Each fsofile In fldr.Files

fsofile.Delete True

Next

edit: be careful where you run this, it deletes everthing below!