建站
咨詢
售后
建站咨詢
新聞中心
VB.NET中怎么創(chuàng)建一個虛擬目錄應用，針對這個問題，這篇文章詳細介紹了相對應的分析和解答，希望可以幫助更多想解決這個問題的小伙伴找到更簡單易行的方法。
公司主營業(yè)務：成都網(wǎng)站設計、網(wǎng)站制作、移動網(wǎng)站開發(fā)等業(yè)務。幫助企業(yè)客戶真正實現(xiàn)互聯(lián)網(wǎng)宣傳，提高企業(yè)的競爭能力。成都創(chuàng)新互聯(lián)公司是一支青春激揚、勤奮敬業(yè)、活力青春激揚、勤奮敬業(yè)、活力澎湃、和諧高效的團隊。公司秉承以“開放、自由、嚴謹、自律”為核心的企業(yè)文化，感謝他們對我們的高要求，感謝他們從不同領域給我們帶來的挑戰(zhàn)，讓我們激情的團隊有機會用頭腦與智慧不斷的給客戶帶來驚喜。成都創(chuàng)新互聯(lián)公司推出托克遜免費做網(wǎng)站回饋大家。
VB.NET創(chuàng)建虛擬目錄代碼示例：
Function CriaDiretorioVirtual(ByVal
vdirname As String, ByVal serverID As
String, ByVal vdirPath As String,
ByVal criaApplication As Boolean)
As DirectoryEntryDim 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) =
vdirPathIf criaApplication Then
newvdir.Invoke("AppCreate", True)
newvdir.Properties("AppFriendlyName")
(0) = vdirnamenewvdir.Properties("AppIsolated")(0) = 2
End If
newvdir.CommitChanges()
Return newvdir
End Function
關(guān)于VB.NET中怎么創(chuàng)建一個虛擬目錄應用問題的解答就分享到這里了，希望以上內(nèi)容可以對大家有一定的幫助，如果你還有很多疑惑沒有解開，可以關(guān)注創(chuàng)新互聯(lián)行業(yè)資訊頻道了解更多相關(guān)知識。
新聞標題：VB.NET中怎么創(chuàng)建一個虛擬目錄應用
路徑分享：http://fisionsoft.com.cn/article/ijspeh.html
