vb6编程:IIS 常用操作编程实现(VB6)来源: 发布时间:星期五, 2008年12月26日 浏览:2次 评论:0
原先我是不知道
![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() 如果也有人无意间看到受益 ![]() ![]() 基础:添加以下引用:1 ![]() ![]() 1 ![]() ![]() Dim sComputer as ![]() Dim websvc, vRoot, vDir sComputer = "localhost" 'Get Default Web Site Object Set websvc = GetObject("IIS://" & sComputer & "/W3svc/1") 'Get root of Default Web Site Set vRoot = websvc.GetObject("IIsWebVirtualDir", "Root") Dim itm As ListItem Dim buf As String, errInfo As String, tryVirt For Each itm In ListView1.ListItems Err.Clear On Error Resume Next Set tryVirt = GetObject("IIS://" & sComputer & "/W3svc/1/ROOT/" & itm.SubItems(1)) 'Debug.Pr ![]() '如果得不到对应 ![]() ![]() ![]() ![]() If Err.Number <> 0 Then Err.Clear Set vDir = vRoot.Create("IISWebVirtualDir", itm.SubItems(1)) vDir.path = itm.Text vDir.Accessread = True vDir.SetInfo Else '记录已经创建 ![]() ![]() 'If tryVirt.AppGetStatus2 = 0 Then errInfo = errInfo & vbCrLf & itm.SubItems(1) End If Next 其实就是 Set websvc = GetObject("IIS://" & sComputer & "/W3svc/1") Set vRoot = websvc.GetObject("IIsWebVirtualDir", "Root") Set vDir = vRoot.Create("IISWebVirtualDir", vdName) vDir.Path=someDir vDir. ![]() 这几个语句就够了 2 ![]() Dim sComputer, sPhyDir, sVirDir As String Dim websvc, vRoot, vDir sComputer = "localhost" 'Get Default Web Site Object Set websvc = GetObject("IIS://" & sComputer & "/W3svc/1") 'Get root of Default Web Site Set vRoot = websvc.GetObject("IIsWebVirtualDir", "Root") Dim itm As ListItem Dim buf As String, errInfo As String, tryVirt For Each itm In ListView1.ListItems Err.Clear On Error Resume Next Call vRoot.Delete("IISWebVirtualDir", itm.SubItems(1)) If Err.Number <> 0 Then errInfo = errInfo & vbCrLf & itm.SubItems(1) End If Err.Clear Next 3 ![]() ![]() ![]() 0
相关文章读者评论
发表评论 |