CommonDialog选择路径代码

来源：百度知道 编辑：UC知道 时间：2024/05/13 09:52:27
在vb中使用该控件，使点击command1后弹出浏览路径窗口，然后选择路径如C:\，接着将路径c:\复制给text1.text，使text1.text = c:\
我需要的是设置保持路径！而不是打开文件,二楼怎么给文件打开路径的啊？

建一个Command1，Text1，CommonDialog1，
代码如下。
＝＝＝＝＝＝＝＝＝＝
Private Sub Command1_Click()
CommonDialog1.ShowSave
Text1.Text = CommonDialog1.FileName
End Sub

窗体上放一个command一个textbox一个commondialog，代码如下
private sub command1_click()
CommonDialog1.Filter = "All Files(*.*)|*.*"
CommonDialog1.FilterIndex = 2
CommonDialog1.ShowSave
Text1.Text = CommonDialog1.filename
end sub

或不使用CommonDialog，直接用API可实现更好的效果

以下是API例子，也是一个command和一个textbox

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
Const BIF_RETURNONLYFSDIRS = 1
Const MAX_PATH = 260
Private Declare Sub CoTaskMemFree Lib "ole32.dll" (ByVal hMem As Long)
Private Declare Function lstrcat Lib "kernel32" Alias &q