怎么用vbs創建虛擬目錄

這篇文章主要介紹“怎么用vbs創建虛擬目錄”，在日常操作中，相信很多人在怎么用vbs創建虛擬目錄問題上存在疑惑，小編查閱了各式資料，整理出簡單好用的操作方法，希望對大家解答”怎么用vbs創建虛擬目錄”的疑惑有所幫助！接下來，請跟著小編一起來學習吧！

復制代碼 代碼如下:

'////////////////////////// begin //////////////////////////////////////////  

On Error Resume Next  
strVirtualDirectoryName = InputBox("請輸入虛擬目錄名")  
If strVirtualDirectoryName = "" Then  
msgbox("輸入錯誤，程序結束！")  
WScript.Quit  
End If  
strVirtualDirectoryPath=InputBox("請輸入網站文件所在的目錄名（例如：e:\web）")  
If strVirtualDirectoryPath = "" Then  
msgbox("輸入錯誤，程序結束！")  
WScript.Quit  
End If  
strVirtualDirectoryPath = Replace(strVirtualDirectoryPath,"/","\")  
Set MyFso = CreateObject("Scripting.FileSystemObject")  
If MyFso.FolderExists(strVirtualDirectoryPath) = 0 then  
msgbox("文件夾"&strVirtualDirectoryPath&"不存在！")  
Else  
Set objIIS = GetObject("IIS://localhost/W3SVC/1/Root")  
Set objVirtualDirectory = objIIS.Create("IISWebVirtualDir",strVirtualDirectoryName)  
If (Err.Number <> 0) Then '如果虛擬目錄已存在或有其他錯誤時則為真  
Err.Clear  
Set myDir = objIIS.GetObject("IIsWebVirtualDir",strVirtualDirectoryName) '創建虛擬目錄對象  
If (Err.Number <> 0) Then '虛擬目錄不存在時則為真，說明是其他未知錯誤，否則為虛擬目錄已存在  
msgbox("對不起，發生未知錯誤，操作失敗！")  
WScript.Quit (Err.Number)  
end if  
m=msgbox ("虛擬目錄"&strVirtualDirectoryName&"已存在,是否刪除？",1+32,"刪除確認")  
if m<>1 then  
WScript.Quit  
end if  
objIIS.Delete "IIsObject", strVirtualDirectoryName  
If (Err.Number <> 0) Then  
msgbox("刪除虛擬目錄"&strVirtualDirectoryName&"失敗")  
WScript.Quit (Err.Number)  
end if  
Set objVirtualDirectory = objIIS.Create("IISWebVirtualDir",strVirtualDirectoryName)  
objVirtualDirectory.AccessScript = true  
objVirtualDirectory.Path = strVirtualDirectoryPath  
objVirtualDirectory.EnableDefaultDoc=True  
objVirtualDirectory.DefaultDoc="index.htm"  
objVirtualDirectory.AppFriendlyName=strVirtualDirectoryName  
objVirtualDirectory.SetInfo  
objVirtualDirectory.AppCreate true 'bolInProcessApplication  
msgbox("操作成功!虛擬目錄"&strVirtualDirectoryName&"建立成功，"&vbCrLf&"請在瀏覽器地址欄中輸入http://localhost/"&strVirtualDirectoryName&"/查看效果")  
else  
objVirtualDirectory.AccessScript = true  
objVirtualDirectory.Path = strVirtualDirectoryPath  
objVirtualDirectory.EnableDefaultDoc=True  
objVirtualDirectory.DefaultDoc="index.htm"  
objVirtualDirectory.AppFriendlyName=strVirtualDirectoryName  
objVirtualDirectory.SetInfo  
objVirtualDirectory.AppCreate true 'bolInProcessApplication  
msgbox("操作成功!虛擬目錄"&strVirtualDirectoryName&"建立成功，"&vbCrLf&"請在瀏覽器地址欄中輸入http://localhost/"&strVirtualDirectoryName&"/查看效果")  
end if  
End If  
Set MyFso = nothing  

'////////////////////////// end //////////////////////////////////////////  

在做安裝的asp程序時可以參照上面的腳本。 

到此，關于“怎么用vbs創建虛擬目錄”的學習就結束了，希望能夠解決大家的疑惑。理論與實踐的搭配能更好的幫助大家學習，快去試試吧！若想繼續學習更多相關知識，請繼續關注億速云網站，小編會繼續努力為大家帶來更多實用的文章！