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"
 return
end if

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