codice:
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)

   fso.CreateFolder FolderPhysicalPath &"/PippoUno"
   fso.CreateFolder FolderPhysicalPath &"/PippoDue"
   fso.CreateFolder FolderPhysicalPath &"/PippoTre"
   fso.CreateFolder FolderPhysicalPath &"/PippoQuattro"
   fso.CreateFolder FolderPhysicalPath &"/PippoCinque"
   fso.CreateFolder FolderPhysicalPath &"/PippoSei"

Set fso = Nothing 
end if