我在iis下新建了一个虚拟目录,允许写入和执行,允许浏览文件夹
vb里面有什么方法可以在iis的这个虚拟目录下面创建文件夹,以及怎么把本地硬盘上的文件复制到虚拟目录里面?(只有10分了,大家帮帮我,谢谢)

解决方案 »

  1.   

    [转帖:参考一下]
    vbscript自动配置IIS 
    源程序如下:(已在Win2000通过)strServerName ="localhost"
    strRootPath="g:\documents" ''虚拟目录路径
    strVRName="Test" ''虚拟目录名称
    strDefaultDoc="index.asp" ''起始文档Dim objIIS
    ''MsgBox "IIS://" & strServerName & "/W3SVC/1"On Error Resume Next
    Set objIIS=GetObject("IIS://" & strServerName & "/W3SVC/1")If err=-2147024893 Then
    MsgBox "IIS不存在!" & vbcrlf & "请验证IIS是否已正确安装!",vbcritical
    Wscript.Quit
    ElseIf err<>0 Then
    MsgBox "未知错误!",vbcritical
    Wscript.Quit
    End IfOn Error GoTo 0Set objVirtualDir=objIIS.GetObject("IISWebVirtualDir","Root")
    For each VR in objVirtualDir
    If VR.Name=strVRName Then
    MsgBox "虚拟目录" & strVRName & "已存在!",vbinformation
    Wscript.Quit
    End If
    NextOn Error Resume Next
    Set fs=Wscript.CreateObject("Scripting.FileSystemObject")
    Set objFolder=fs.GetFolder(strRootPath)If err=76 Then 
    MsgBox "路径" & strRootPath & "不存在!",vbcritical
    Wscript.Quit
    End IfSet objFolder=nothing
    Set fs=nothing
    On Error GoTo 0On Error Resume Next
    Set VirDir=objVirtualDir.Create("IISWebVirtualDir",strVRName)
    VirDir.AccessRead=true
    VirDir.Path=strRootPath
    VirDir.DefaultDoc=VirDir.DefaultDoc & "," & strDefaultDocVirDir.setInfoIf err<>0 Then
    MsgBox "创建虚拟目录失败!",vbcritical
    Else
    MsgBox "虚拟目录" & strVRName & "成功创建在服务器" & strServerName & "上!",vbinformation
    End If代码的关键在于创建虚拟目录,及其中的配置:Set VirDir=objVirtualDir.Create("IISWebVirtualDir",strVRName)
    VirDir.AccessRead=true
    VirDir.Path=strRootPath
    VirDir.DefaultDoc=VirDir.DefaultDoc & "," & strDefaultDocVirDir.setInfo