小編給大家分享一下vbs,hta中如何實現(xiàn)選擇文件夾對話框，相信大部分人都還不怎么了解，因此分享這篇文章給大家參考一下，希望大家閱讀完這篇文章后大有收獲，下面讓我們一起去了解一下吧！

創(chuàng)新互聯(lián)專業(yè)為企業(yè)提供南寧網(wǎng)站建設、南寧做網(wǎng)站、南寧網(wǎng)站設計、南寧網(wǎng)站制作等企業(yè)網(wǎng)站建設、網(wǎng)頁設計與制作、南寧企業(yè)網(wǎng)站模板建站服務，十多年南寧做網(wǎng)站經(jīng)驗，不只是建網(wǎng)站，更提供有價值的思路和整體網(wǎng)絡服務。

代碼如下:

on error resume next
SelectFolder
function SelectFolder()
Const MY_COMPUTER = &H11&
Const WINDOW_HANDLE = 0
Const OPTIONS = 0
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace(MY_COMPUTER)
Set objFolderItem = objFolder.Self
strPath = objFolderItem.Path
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.BrowseForFolder(WINDOW_HANDLE, "選擇文加夾:", OPTIONS, strPath)
If objFolder Is Nothing Then
msgbox "您沒有選擇任何有效目錄!"
End If
Set objFolderItem = objFolder.Self
objPath = objFolderItem.Path
msgbox "您選擇的文件夾是：" & objPath
end function

但是這個代碼不能在hta里用，原因是權(quán)限不夠，不知道其它機子上能不能。
于是寫了個用vbs自帶函數(shù)和fso結(jié)合的文件夾選擇代碼，僅供參考

復制代碼 代碼如下:

以上是“vbs,hta中如何實現(xiàn)選擇文件夾對話框”這篇文章的所有內(nèi)容，感謝各位的閱讀！相信大家都有了一定的了解，希望分享的內(nèi)容對大家有所幫助，如果還想學習更多知識，歡迎關注創(chuàng)新互聯(lián)行業(yè)資訊頻道！

網(wǎng)頁名稱：vbs,hta中如何實現(xiàn)選擇文件夾對話框-創(chuàng)新互聯(lián)
文章轉(zhuǎn)載：http://weahome.cn/article/dedige.html