//假如虚拟目录名为"WEBTEST"，先在项目中引用

//SYSTEM.DIRECTORYSERVICES.DLL，再

USING SYSTEM.DIRECTORYSERVICES;

PROTECTED SYSTEM.DIRECTORYSERVICES.DIRECTORYENTRY DIRROOT;

1、添加新的虚拟目录

     DIRECTORYENTRY NEWVIRDIR = DIRROOT.CHILDREN.ADD("WEBTEST","IISWEBVIRTUALDIR");

     NEWVIRDIR.INVOKE("APPCREATE",TRUE);

     NEWVIRDIR.COMMITCHANGES();

     DIRROOT.COMMITCHANGES();

2、更改虚拟目录属性

    //虚拟目录的属性较常用的有:ACCESSREAD,ACCESSWRITE,ACCESSEXECUTE,ACCESSSCRIPT,DEFAULTDOC,ENABLEDEFAULTDOC,PATH等

     DIRECTORYENTRY DIRPORT = DIRROOT.CHILDREN.FIND("WEBTEST","IISVIRTUALDIR");

     DIRPORT .PROPERTIES["ACCESSREAD"][0] = TRUE;

3、删除虚拟目录

      DIRECTORYENTRY DIRPORT = DIRROOT.CHILDREN.FIND("WEBTEST","IISVIRTUALDIR");

      DIRPORT.INVOKE("APPDELETE",TRUE);

      DIRROOT.COMMITCHANGES();

或者：

     OBJECT[] PART = NEW OBJECT[2];

     PART[0] = "IISWEBVIRTUALDIR";

     PART[1] = "WEBTEST";

     DIRROOT.INVOKE("DELETE",PART);

     DIRROOT.COMMITCHANGES();