vb 实现文件浏览

1，先添加部件，在“工程”菜单里有“部件”，打开“部件”选项卡，找到“Microsoft Common Dialog Contrlo 6.0”选项，然后把前面的勾选，确定，此时在工具箱上出现了“CommonDialog控件” 。

2，然后在窗体上添加上CommonDialog控件，一般名称为：CommonDialog1

3，再添加一个Command控件，一般名称为：Command1。

4，给Command1添加Click事件：

Private Sub Command1_Click()

CommonDialog1.DialogTitle = " "

CommonDialog1.InitDir = "C:\"

CommonDialog1.Filter = "*.*|*.*"

CommonDialog1.FileName = ""

CommonDialog1.ShowOpen

If CommonDialog1.FileName <> "" Then

Shell "cmd /c start """" """ & CommonDialog1.FileName & """ "

End If

End Sub

用上述代码即可实现浏览文件，选择后还能打开的功能。

浏览文件夹窗口需要使用WINDOWS

API函数：这个是我自己的程序当中的一段代码：{

BROWSEINFO

bi

ZeroMemory(&bi,

sizeof(BROWSEINFO))

bi.hwndOwner

=

m_hWnd

bi.ulFlags

=

BIF_RETURNONLYFSDIRS

LPITEMIDLIST

pidl

=

SHBrowseForFolder(&bi)

BOOL

bRet

=

FALSE

TCHAR

szFolder[MAX_PATH*2]

szFolder[0]

=

_T('\0')

if

(pidl)

{

if

(SHGetPathFromIDList(pidl,

szFolder))

bRet

=

TRUE

IMalloc

*pMalloc

=

NULL

if

(SUCCEEDED(SHGetMalloc(&pMalloc))

&&

pMalloc)

{

pMalloc->Free(pidl)

pMalloc->Release()

}

}

UpdateData(1)

m_Path=szFolder

UpdateData(0)

}这个代码添加在BUTTON的ON事件函数中，目的是将文件夹路径输出到m_Path这个TEXTBOX控件中。你略微改改名即可使用。

---