commondialog选择文件夹

㈠ vb怎么实现弹出对话框选择文件路径

VB6.0使用CommonDialog 控件弹出对话框选择文件路径。

通过使用 CommonDialog 控件的 ShowOpen 和 ShowSave
方法可显示“打开”和“另存为”对话框。

两个对话框均可用以指定驱动器，目录，文件扩展名和文件名。除对话的标题不同外，另存为对话外观上与打开对话相似。

下例显示“打开”对话框然后在信息框中显示所选的文件名：

PrivateSubCommand1_Click()
'设置“CancelError”为True
CommonDialog1.CancelError=True
OnErrorGoToErrHandler
'设置标志
CommonDialog1.Flags=cdlOFNHideReadOnly
'设置过滤器
CommonDialog1.Filter="AllFiles(*.*)|*.*|TextFiles"&_
"(*.txt)|*.txt|BatchFiles(*.bat)|*.bat"
'指定缺省的过滤器
CommonDialog1.FilterIndex=2
'显示“打开”对话框
CommonDialog1.ShowOpen
'显示选定文件的名字
MsgBoxCommonDialog1.FileName'显示路径
ExitSub
ErrHandler:
'用户按了“取消”按钮
ExitSub
EndSub

㈡ VB6 求 弹出选择 这一种 外观的文件夹 选择对话框，注意是要<文件夹>的，谢谢！

PrivateSubChooseDir_Click()
DimsTempDirAsString
OnErrorResumeNext
sTempDir=CurDir'
CommonDialog1.DialogTitle="Selectadirectory"'titlebar
CommonDialog1.InitDir=App.Path'startdir,mightbe"C:"orsoalso
CommonDialog1.FileName="SelectaDirectory"'Somethinginfilenamebox
CommonDialog1.Flags=cdlOFNNoValidate+cdlOFNHideReadOnly
CommonDialog1.Filter="Directories|*.~#~"'setfiles-filtertoshowdirsonly
CommonDialog1.CancelError=True'allowescapekey/cancel
CommonDialog1.ShowSave'showthedialogscreen
IfErr<>32755Then'Userdidn'tchoseCancel.
Me.SDir.Text=CurDir
EndIf
ChDirsTempDir'
EndSub