vb选择文件夹对话框
A. 怎样在VB中弹出选择文件夹的对话框
Private Sub Dir1_Change()
File1 = Dir1
End Sub
Private Sub Drive1_Change()
Dir1 = Drive1
End Sub
Drive1 , Dir1, File1 需要这三个控件！
B. 能不能通过vb调出一个选择文件的对话框
添加一个CommonDialog控件，一个按钮，一个文本框，在按钮代码如下：
Private
Sub
Command1_Click()
CommonDialog1.ShowOpen
Text1.Text
=
CommonDialog1.FileName
End
Sub
Private
Sub
Command2_Click()
Shell
Text1.Text,
vbNormalFocus
End
Sub
运行图：
注意，一般只能打开exe格式的文件。
C. 如图，在VB中，如何打开这样的文件夹选择对话框。用控件，还是API，谢谢！
打开文件对话框，添加CommonDialog控件就可以。
添加方法：【工程】-【部件】在部件对话框勾选：Microsoft Common Dialog Control 6.0 (SP3)
这样控件添加在工具箱中了，拖动到界面即可。
主要代码：
CommonDialog1.InitDir = "c:/" '对话框初始目录
CommonDialog1.Filter = "文本文件 (.txt)|*.txt|图片(.gif)|*.gif" '设置打开文件类型
CommonDialog1.ShowOpen '打开文件对话框
'CommonDialog1.ShowSave '保存文件对话框
'CommonDialog1.ShowColor '打开颜色设置对话框 等等
D. VB6.0浏览文件夹对话框，怎么做
浏览文件夹窗口需要使用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控件中。你略微改改名即可使用。
E. VB做一个文件夹对话框
在VB中显示文件夹浏览对话框
方法有二
请在窗体上添加两个命令按钮,一个用API调用 ,另一个引用 Shell调用(引用Microsoft Shell Controls And Automation对象)
代码如下:
Private Const BIF_RETURNONLYFSDIRS = 1 '从这里开始为API声明
Private Const BIF_DONTGOBELOWDOMAIN = 2
Private Const MAX_PATH = 260
Private Declare Function SHBrowseForFolder Lib "Shell32" _
(lpbi As BrowseInfo) As Long
Private Declare Function SHGetPathFromIDList Lib "Shell32" _
(ByVal pidList As Long, _
ByVal lpBuffer As String) As Long
Private Declare Function lstrcat Lib "kernel32" Alias "lstrcatA" _
(ByVal lpString1 As String, ByVal _
lpString2 As String) As Long
Private Type BrowseInfo
hWndOwner As Long
pIDLRoot As Long
pszDisplayName As Long
lpszTitle As Long
ulFlags As Long
lpfnCallback As Long
lParam As Long
iImage As Long
End Type
Dim a As New Shell 'Shell对象
Private Sub Command1_Click() '文件夹浏览一
Dim lpIDList As Long
Dim sBuffer As String
Dim szTitle As String
Dim tBrowseInfo As BrowseInfo
szTitle = "This is the title"
With tBrowseInfo
.hWndOwner = Me.hWnd
.lpszTitle = lstrcat(szTitle, "")
.ulFlags = BIF_RETURNONLYFSDIRS + BIF_DONTGOBELOWDOMAIN
End With
lpIDList = SHBrowseForFolder(tBrowseInfo)
If (lpIDList) Then
sBuffer = Space(MAX_PATH)
SHGetPathFromIDList lpIDList, sBuffer
sBuffer = Left(sBuffer, InStr(sBuffer, vbNullChar) - 1)
MsgBox sBuffer
End If
End Sub
Private Sub Command2_Click() '文件夹浏览二
Dim b As Folder
Set b = a.BrowseForFolder(0, "选择文件夹", 0)
a.Open b
End Sub
F. vb怎样操作控制“打开对话框”选择文件
CommonDialog 控件（“打开”、“另存为”对话框）
通过使用 CommonDialog 控件的 ShowOpen 和 ShowSave
方法可显示“打开”和“另存为”对话框。
两个对话框均可用以指定驱动器，目录，文件扩展名和文件名。除对话的标题不同外，另存为对话外观上与打开对话相似。
在运行时，当用户选择一个文件“关闭”对话框时，FileName 属性既为选定的文件名。
可以设置 Filter 属性，这样对话就只显示某种文件类型，如文本文件。Flags
属性可用来改变对话的元素，当诸如覆盖文件之类的动作发生时，还可用来提示用户。
CommonDialog
控件（“打开”、“另存为”对话框）示例
下例显示“打开”对话框然后在信息框中显示所选的文件名：
Private Sub Command1_Click()
' 设置“CancelError”为 True
CommonDialog1.CancelError = True
On Error GoTo ErrHandler
' 设置标志
CommonDialog1.Flags = cdlOFNHideReadOnly
' 设置过滤器
CommonDialog1.Filter = "All Files (*.*)|*.*|Text Files" & _
"(*.txt)|*.txt|Batch Files (*.bat)|*.bat"
' 指定缺省的过滤器
CommonDialog1.FilterIndex = 2
' 显示“打开”对话框
CommonDialog1.ShowOpen
' 显示选定文件的名字
MsgBox CommonDialog1.FileName
Exit Sub
ErrHandler:
' 用户按了“取消”按钮
Exit Sub
End Sub
G. VB.net怎么弹出文件夹路径选择框
选择文件夹在工具箱-对话框里选择FolderBrowserDialog添加到设计器中
然后代码写在按钮事件里
FolderBrowserDialog1.ShowDialog()
textbox1.text=FolderBrowserDialog1.SelectedPath
选择文件在工具箱-对话框里选择OpenFileDialog
把OpenFileDialog1.ShowDialog()
TextBox1.Text=OpenFileDialog1.FileName
写到按钮事件下
如图
点击按钮会弹出通用对话框选择好路径后确定，编辑框里就会显示选择的路径
H. VB中，点击命令按钮，怎么弹出对话框，用来选取文件路径
//选择文件
OpenFileDialog ofd = new OpenFileDialog();
ofd.ShowDialog();
MessageBox.Show(ofd.FileName);
//选择文件夹
FolderBrowserDialog fbd = new FolderBrowserDialog();
fbd.ShowDialog();
MessageBox.Show(fbd.SelectedPath);