Function CriaDireToriovirtual (Byval Vdirname As String, Byval VdirPath As String, BYVAL CRIAAPPLICATION As Boolean) As DirectoryEntry
DIM Newvdir as DirectoryEntry
Dim root as DirectoryEntry
Root = New DirectoryEntry ("IIS: // localhost / w3svc /" serverid "/ root")
Newvdir = root.children.add (vdirname, "iiswebvirtualdir")
Newvdir.Properties ("path") (0) = vdirPath
IF criaapplication kil
Newvdir.invoke ("AppCreate", True)
Newvdir.Properties ("AppFriendlyName") (0) = vdirname
Newvdir.Properties ("Appisolated") (0) = 2
END IF
Newvdir.commitchanges ()
Return newvdir
END FUNCTION
