FileStstem add/delete folders

dim objFSO
set objFSO=Server.CreateObject("Scripting.FileSystemObject")
if not objFSO.FolderExists("C:\MyNewFolder") then
  objFSO.CreateFolder("C:\MyNewFolder")
end If

Set MyFile=objFSO.GetFile("C:\MyFolder")
MyFile.Delete