Create subdirectory "myfiles"
Set fs = CreateObject("Scripting.FileSystemObject") Set a = fs.CreateFolder(Foldertocreate) Set fs=nothing %> Done
Delete subdirectory "myfiles"
Set fs = CreateObject("Scripting.FileSystemObject") fs.DeleteFolder(Foldertodelete) Set fs=nothing %> Done
Delete a folder only in case it exits (to avoid errors)
Set fs = CreateObject("Scripting.FileSystemObject") if fs.FolderExists("c:\temp") then fs.DeleteFolder "c:\temp" end if Set fs=nothing %> Done