创建虚拟目录
来源:互联网 发布:少女终末旅行 知乎 编辑:程序博客网 时间:2024/04/28 17:57
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Call CriaDiretorioVirtual("ssss", "1", "d:/", True)
MessageBox.Show("创建成功")
End Sub
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://local/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
- 创建虚拟目录
- 创建虚拟目录
- 创建虚拟目录
- 创建虚拟目录
- 如何创建虚拟目录。
- tomat创建虚拟目录
- IIS创建虚拟目录
- vbs创建虚拟目录
- c# 创建虚拟目录
- Asp.net 创建虚拟目录
- PHP WAMP创建虚拟目录
- 创建IIS虚拟目录 DircetoryEntry
- 创建Ftp虚拟目录
- Tomcat -->创建虚拟目录
- 配置IIS,创建虚拟目录。
- tomcat创建虚拟目录
- Tomcat 创建虚拟目录
- Linux apache 创建虚拟目录
- c#写的虚拟机成功运转了
- Note-------------substring
- 全球首部Google手机亮相 未采用Android系统(图文)
- .net自动生成表格解决方案
- SCO UNIX 3.2 5.0.7 386 下安装IDS Informix_Online Dynamic Server 7.23.UC13-1
- 创建虚拟目录
- ICollection的简单实现
- Delphi 利用TStringList 构建简单数据库
- 二十八星宿图
- 上证指数
- fomr 表单乱码问题
- linux下IAS修改IP
- [转]强人总结的Windows XP实用技巧45条
- ias 80设置