vb中5种打开文件夹浏览框的方法总结.pdfVIP

vb中5种打开文件夹浏览框的方法总结

：文件夹打开方法浏览vbvb打开文件夹浏览框

vb记录文件夹路径vb文件夹列表框

篇一：VB打开文件夹浏览框的方法总结

vb中5种打开文件夹浏览框的方法总结

文章录入：浣花溪责任编辑：snow1038

【字体：小大】

bydaokers

众所周知，在vb中如果是打开某一个文件的话，非常简单，

使用CommonDialog组件即

可轻松完成，但是他只能选择文件，之后或许选取的文件路径，

而如果想要浏览文件夹，就没这

么方便了。

这里介绍3个办法来实现文件夹浏览。

第一个非常简单，利用Shell对象

程序代码

#39;引用MicrosoftShellControlsAndAutomation

DimShellAAsNewShell

PrivateSubCommand1_Click()#39;建立一个按钮对象Dim

ShellbAsFolder

SetShellb=ShellA.BrowseForFolder(0,选择文件夹,0)

ShellA.Openb

EndSub

记得一定要引用MicrosoftShellControlsAndAutomation

第二种方法，我们同样利用shell对象，但是加几个函数

程序代码

#39;引用MicrosoftShellControlsAndAutomation

PrivateshlShellAsShell32.Shell

PrivateshlFolderAsShell32.Folder

PrivateConstBIF_RETURNONLYFSDIRS=amp;H1

PrivateSubCommand1_Click()#39;

IfshlShellIsNothingThen

SetshlShell=NewShell32.Shell

EndIf

SetshlFolder=shlShell.BrowseForFolder(Me.hWnd,请选择文件

夹,

BIF_RETURNONLYFSDIRS)

IfNotshlFolderIsNothingThen

MsgBoxshlFolder.Items.Item.Path#39;测试

EndIf

EndSub

上面2个方法的结果如图：

第三个方法，是利用API来操作。

程序代码

PrivateConstBIF_RETURNONLYFSDIRS=1

PrivateConstBIF_DONTGOBELOWDOMAIN=2

PrivateConstMAX_PATH=260

PrivateDeclareFunctionSHBrowseForFolderLibShell32(lpbiAs

BrowseInfo)AsLong

PrivateDeclareFunctionSHGetPathFromIDListLibShell32(ByVal

pidListAsLong,ByVallpBufferAsString)AsLong

PrivateDeclareFunctionlstrcatLibkernel32AliaslstrcatA(ByVal

lpString1AsString,ByVallpString2AsString)AsLong

PrivateTypeBrowseInfo

hWndOwnerAsLong

pIDLRootAsLong

pszDisplayNameAsLong

lpszTitleAsLong

ulFlagsAsLong

lpfnCallbackAsLong

lParamAsLong

iImageAsLong

EndType

PrivateSubComm