VB6.0浏览文件夹对话框，怎么做？

Question

我是新建的ActiveX插件。创建一个TextBox,一个按钮，单击按钮弹出浏览文件夹的对话框，把选择的文件夹路径返回到TextBox中，怎么做呢？需要源码，急用，先谢谢各位大侠了

Answer 1

添加一个form2。把他当做弹出对话框，在form2中添加一个dirlistbox控件，在form1的command1的click事件中写入form2.show。在form2的dir1的click事件中写入form1.text1.text = dir1.path就OK了，避免使用繁琐的API函数

Answer 2

浏览文件夹窗口需要使用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控件中。你略微改改名即可使用。