Creating a virtual directory

[MartDawg]

Anybody know how to create a virtual directory in Visual Basic?

 

[bjd4jc]

A quick google returned the following result.

http://www.issociate.de/board/post/199964/ADSI_Virtual_directory_creation_problems.html

Here is a stripped down version of the code that works.

Dim sComputer As String
    Dim sPhyDir As String
    Dim sVirDir As String
    Dim strLogDesc As String
    Dim vRoot As Object
    Dim vdir As Object
    
    sComputer = "localhost"
    sPhyDir = "c:\testfax"
    sVirDir = "TestFax"
    
    Set vRoot = GetObject("IIS://" & strcomputer & "LOCALHOST/W3SVC/1/ROOT")
    Set vdir = vRoot.Create("IIsWebVirtualdir", sVirDir)
    
    vdir.AccessRead = True
    vdir.AccessWrite = True
    vdir.AccessExecute = True
    vdir.Path = sPhyDir
    vdir.SetInfo
    Set vdir = Nothing
    Set vRoot = Nothing

 

[MartDawg]

Thanks

 

[bjd4jc]

Ahh, I noticed a glaring typeo in my code. I changed it at the last minute.

Set vRoot = GetObject("IIS://" & strcomputer & "LOCALHOST/W3SVC/1/ROOT")


Should be

Set vRoot = GetObject("IIS://" & strcomputer & "/W3SVC/1/ROOT")

Without the LOCALHOST part, cause you're already specifying it with strComputer.