Installshield 创建虚拟目录脚本

最新推荐文章于 2022-10-24 10:19:09 发布

weixin_34177064

最新推荐文章于 2022-10-24 10:19:09 发布

阅读量61

点赞数

原文链接：http://www.cnblogs.com/ZJ199012/archive/2011/12/22/2297861.html

版权

function CreateVirtualDir(VirtualName,VirtualDataPath)

    STRING szWaitTxt,szVirPath;
    OBJECT objIIS_Virtual,objVirtDir;

begin

    szWaitTxt= "正在创建 " + VirtualName + " 虚拟目录....";
    SdShowMsg (szWaitTxt, TRUE);
    Delay(3);

    set objIIS_Virtual = CoGetObject("IIS://localhost/W3SVC/1/Root", "");
    szVirPath = TARGETDIR + VirtualDataPath;

    if (IsObject(objIIS_Virtual)) then

        try

            set objVirtDir = objIIS_Virtual.Create("IISWebVirtualDir", VirtualName);
            if (IsObject(objVirtDir)) then
                objVirtDir.Path = szVirPath;

                objVirtDir.AccessRead = TRUE;
                objVirtDir.AccessScript = TRUE;
                objVirtDir.AccessWrite = FALSE;
                objVirtDir.EnableDirBrowsing = FALSE;
                objVirtDir.EnableDefaultDoc = TRUE;
                objVirtDir.AppFriendlyName = VirtualName;
                objVirtDir.SetInfo();

                objVirtDir.AppCreate2(2);
                objVirtDir.SetInfo();
            endif;

        catch
            MessageBox("无法创建虚拟目录，请自行创建虚拟目录！", INFORMATION);
        endcatch;

    endif;

end;