Create folder on desktop

How do I create a folder on the desktop and access it?

with very minimal error checking
wrote this in the forum so there may be bugs
off the top of my head like

dim f as folderitem = specialfolder.Desktop.Child("some folder name")

// nil ?
if f is nil then
 msgbox "you have some real problem here"
end if

// create it if it does not exist
if f.exists = false then
end if