VB.NET編程語言可以幫助我們實現(xiàn)許多功能，比如對移動設(shè)備的操作，對數(shù)據(jù)庫的操作，對圖形界面的處理以及對文件文本的操作等等。我們今天將要學(xué)到的則是VB.NET創(chuàng)建虛擬目錄的方法，希望能給大家?guī)硪恍椭?/p>

創(chuàng)新互聯(lián)建站是一家集網(wǎng)站建設(shè),雙清企業(yè)網(wǎng)站建設(shè),雙清品牌網(wǎng)站建設(shè),網(wǎng)站定制,雙清網(wǎng)站建設(shè)報價,網(wǎng)絡(luò)營銷,網(wǎng)絡(luò)優(yōu)化,雙清網(wǎng)站推廣為一體的創(chuàng)新建站企業(yè)，幫助傳統(tǒng)企業(yè)提升企業(yè)形象加強企業(yè)競爭力?？沙浞譂M足這一群體相比中小企業(yè)更為豐富、高端、多元的互聯(lián)網(wǎng)需求。同時我們時刻保持專業(yè)、時尚、前沿，時刻以成就客戶成長自我，堅持不斷學(xué)習(xí)、思考、沉淀、凈化自己，讓我們?yōu)楦嗟钠髽I(yè)打造出實用型網(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 DirectoryEntry   
  
  
  
Dim 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) = 
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  
 
 
 

VB.NET創(chuàng)建虛擬目錄的相關(guān)操作方法就為大家介紹到這里。

新聞名稱：VB.NET創(chuàng)建虛擬目錄應(yīng)用方法介紹
地址分享：http://uogjgqi.cn/article/cdcshio.html