on error resume next Set oFS = CreateObject("Scripting.FileSystemObject") sFolder = "C:\_test" For Each subfolder in oFS.GetFolder(sFolder).Subfolders For Each file in oFS.GetFolder(subfolder.Path).Files oFS.DeleteFile file.Path, True Next For Each folder in oFS.GetFolder(subfolder.Path).Subfolders oFS.DeleteFolder folder.Path Next Next Set oFS = Nothing Msgbox "Done."
|Need help with VBScript adding Signature||3||33|
|Need to rewrite code for checking if a file exists||3||55|
|Have information from one page show up on another||24||22|
|VB Script/Bat: check if a file has been modified based on prefix||10||56|
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
18 Experts available now in Live!