denewvdir.properties("path")(0) = pathtoroot
denewvdir.properties("accessflags")(0) = 513
denewvdir.properties("frontpageweb")(0) = 1
denewvdir.commitchanges()
deroot.commitchanges()
'create a application
denewvdir.invoke("appcreate", true)
'save changes
denewvdir.commitchanges()
deroot.commitchanges()
denewvdir.close()
deroot.close()
return site
end function
private shared sub createphysicaldirectory(byval pathtoroot as string, byval websitename as string)
if (directory.exists(pathtoroot)) then
throw new exception("error creating new website: customer root directory already exists at " + pathtoroot)
