VB中用API函數(shù)實(shí)現(xiàn)文件夾列表

2019-11-18 17:34:25

字體：大中小

供稿：網(wǎng)友

----在安裝軟件等一些操作中，需要用戶(hù)指定安裝路徑，現(xiàn)在軟件的安裝界面都是非常友好的，一般來(lái)說(shuō)給出一個(gè)缺省路徑，用戶(hù)如不滿意可以在文件夾列表中選擇其他的路徑。在WIN9X下，一般不再采用原來(lái)的先在驅(qū)動(dòng)器列表框中選擇驅(qū)動(dòng)器再在相應(yīng)的驅(qū)動(dòng)器中選擇相應(yīng)文件夾的界面，而是采用的類(lèi)似資源管理器中“所有文件夾”界面：最上層是“桌面”，然后是“我的電腦”、驅(qū)動(dòng)器A、C、D...等，在一個(gè)列表框中用戶(hù)可實(shí)現(xiàn)瀏覽所有驅(qū)動(dòng)器及文件夾的操作。這種特色的文件列表沒(méi)有現(xiàn)成的控件可供使用，但利用API函數(shù)可方便地實(shí)現(xiàn)。

----實(shí)現(xiàn)方法：API函數(shù)SHBrowseForFolder可以提供這樣的文件列表，它需要用到一個(gè)BROWSEINFO類(lèi)型，此類(lèi)型包括了列表框使用的參數(shù)，此類(lèi)型的聲明見(jiàn)下面的程序，其中這里用到的幾個(gè)參數(shù)簡(jiǎn)單說(shuō)明一下：

----hwndOwner—當(dāng)前窗口的句柄。

----pidlRoot—從何根路徑開(kāi)始展開(kāi)文件夾，缺省情況下從“桌面”開(kāi)始展開(kāi)。

----lpszTitle—目錄樹(shù)上方的標(biāo)題，用來(lái)給用戶(hù)一些提示信息。

----ulFlags—顯示標(biāo)志控制項(xiàng)：比如若賦值為BIF_BROWSEFORCOMPUTER，則只有當(dāng)用戶(hù)選擇“我的電腦”時(shí)“確定”按鈕才有效，這里我們需要的是

----BIF_RETURNONLYFSDIRS，只有用戶(hù)選擇的是文件夾時(shí)“確定”按鈕才有效。

----此函數(shù)返回值是指向項(xiàng)目（ITEM）的一個(gè)指針，有了這個(gè)數(shù)值，再用API函數(shù)SHGetPathFromIDList可以獲得具體的路徑，如果用戶(hù)按的是“取消”按鈕，則返回值為NULL。

----下面是一個(gè)例子，在窗體中放置一個(gè)命令按鈕command1、一個(gè)文本框Text1，在窗體的聲明部分API聲明函數(shù)和類(lèi)型及常量如下：

OptionExplicit

EndIf
EndSub

----運(yùn)行此程序，單擊命令按鈕，就可以看到和資源管理器中一樣的“所有文件夾”列表了。

----此程序在中文WIN95/98、中文VB5.0專(zhuān)業(yè)版下調(diào)試通過(guò)，也適用于VB4.0。->