网创优客建站品牌官网
为成都网站建设公司企业提供高品质网站建设
热线:028-86922220
成都专业网站建设公司

定制建站费用3500元

符合中小企业对网站设计、功能常规化式的企业展示型网站建设

成都品牌网站建设

品牌网站建设费用6000元

本套餐主要针对企业品牌型网站、中高端设计、前端互动体验...

成都商城网站建设

商城网站建设费用8000元

商城网站建设因基本功能的需求不同费用上面也有很大的差别...

成都微信网站建设

手机微信网站建站3000元

手机微信网站开发、微信官网、微信商城网站...

建站知识

当前位置:首页 > 建站知识

VB.NET中怎么创建一个虚拟目录应用

VB.NET中怎么创建一个虚拟目录应用,针对这个问题,这篇文章详细介绍了相对应的分析和解答,希望可以帮助更多想解决这个问题的小伙伴找到更简单易行的方法。

公司主营业务:成都网站设计、网站制作、移动网站开发等业务。帮助企业客户真正实现互联网宣传,提高企业的竞争能力。成都创新互联公司是一支青春激扬、勤奋敬业、活力青春激扬、勤奋敬业、活力澎湃、和谐高效的团队。公司秉承以“开放、自由、严谨、自律”为核心的企业文化,感谢他们对我们的高要求,感谢他们从不同领域给我们带来的挑战,让我们激情的团队有机会用头脑与智慧不断的给客户带来惊喜。成都创新互联公司推出托克逊免费做网站回馈大家。

VB.NET创建虚拟目录代码示例:

  1. Function CriaDiretorioVirtual(ByVal 
    vdirname As String, ByVal serverID As 
    String, ByVal vdirPath As String, 
    ByVal criaApplication As Boolean) 
    As DirectoryEntry   

  2. Dim newvdir As DirectoryEntry   

  3. Dim root As DirectoryEntry   

  4. root = New DirectoryEntry("IIS://
    localhost/W3SVC/" + serverID + "/Root")   

  5. newvdir = root.Children.Add
    (vdirname, "IIsWebVirtualDir")   

  6. newvdir.Properties("Path")(0) = 
    vdirPath   

  7. If criaApplication Then   

  8. newvdir.Invoke("AppCreate", True)   

  9. newvdir.Properties("AppFriendlyName")
    (0) = vdirname   

  10. newvdir.Properties("AppIsolated")(0) = 2   

  11. End If   

  12. newvdir.CommitChanges()   

  13. Return newvdir   

  14. End Function  

关于VB.NET中怎么创建一个虚拟目录应用问题的解答就分享到这里了,希望以上内容可以对大家有一定的帮助,如果你还有很多疑惑没有解开,可以关注创新互联行业资讯频道了解更多相关知识。


名称栏目:VB.NET中怎么创建一个虚拟目录应用
标题链接:http://bjjierui.cn/article/ijspeh.html

其他资讯