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!

Edited April 30, 2010 by box_l