Function CriaDiretorioVirtual(ByVal vdirname As String, ByVal serverID 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 Then
            newvdir.Invoke("AppCreate", True)
            newvdir.Properties("AppFriendlyName")(0) = vdirname
            newvdir.Properties("AppIsolated")(0) = 2
        End If
        newvdir.CommitChanges()
 
        Return newvdir
    End Function

相关新闻

·asp常用函数
·shell编程Bash中对变量的操作方法谈
·[ASP/ASP.net]最简单的XML运用
·MSSQL 中一些有用的存储扩展
·获取SQL Server版本(源代码)
·bat-任意截断替换字符
·Win32Asm快速教程

热评文章

·悬挂阿里妈妈会否被百度惩罚
·阿里妈妈是否是中小站长的救世主?
·搜搜问问抢不了百度知道的饭碗
·网络的成功在于与传统商业的联姻
·Google绿色专家质疑黑色背景网页节省资源
·我的网络，我的团队:专访李文明
·网聚力量矜持是道专访聚吧站长欠情
·色•戒•网络：均在欲望中纠缠
·访谈录 非主流巴士网站长球球快跑
·站长访谈：天道酬勤 青春有梦
·草根站长团队建设浅析
·随爱而行 专访湛蓝城堡三位女管理员
·评论：博客实名黯然退场 网络管制宜有反思
·百度新闻频道改版十天 流量止跌反弹翻了一
·爆笑 阿里就这样把亿告征服！

最新图文

• 
  做就做自己喜欢的
• 
  什么样的网上简历最“抢
• 
  一个女站长的网络历程
• 
  盘点"非主流"的发展史

站长学院　　网页设计 建站教程 图形图象 网络编程

Photoshop CS3

不用Photoshop

DIV+CSS的开发方式 听听另外的
虚拟主机建站动易里快速生成的
VBScript特效代码 满屏幕乱跑
牛气！一个菜鸟站长的超强网站
创建、维护一个个人博客的“投
让网站流量稳步飙升的秘籍
网站推广的基本思想

地区性网站经营方法及误区 因多添加一段代码而惹的祸－－ 怎么让10天的新网站,有100个外

• 
  Photoshop简单几步快速
• 
  Photoshop参数预设与图
• 
  Photoshop简单几步打造
• 
  无价：Photoshop制作一

新闻线索

如果你有站长界人事变动、重组并购、变革技术出现，以及产品投诉等重要新闻线索，请告诉我们，我们会给予特别关注。
0631-3653338
站长中国编辑部
站长中国24小时新闻热线： 13256307008