Metodo FSO e sottocartelle

[[trodat]]

Ciao a tutti; ho questo codice per creare una cartella sul server con il metodo FSO:

Dim fso
 Set fso = Server.CreateObject("Scripting.FileSystemObject")
  Dim FolderVirtualPath
   FolderVirtualPath = NomeCartella
  Dim FolderPhysicalPath
 FolderPhysicalPath = Server.mapPath(FolderVirtualPath)
if fso.FolderExists(FolderPhysicalPath) then
response.write "cartella esistente"
else
   fso.CreateFolder(FolderPhysicalPath)
end if

E' possibile con lo stesso metodo creare delle sottocartelle all'interno della cartella principale???

Ad esempio creo la cartella "Pippo", all'interno di "Pippo" devo creare le sottocartelle "PippoUna", "PippoDue", etc...

E' possibile? grazie