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."
|VBA open file from excel cell||4||33|
|VB Script: compare csv files based on a key column and report third file with differences values||17||29|
|Create Powershell code with Powershell (or Excel Macro) for a DSC configuration||7||35|
|VBS to check if Visio file open and if so close it||4||28|
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
12 Experts available now in Live!