vb文件夹对话框不能指定路径

㈠ vb怎么做一个设置默认保存路径

1，点击“工程－部件”，显示“部件”对话框，将“Microsoft Common Dialog control 6.0”选中，然后确定。

2，添加工具栏中的CommonDialog控件图标，将其添加到窗体上。

3，窗体添加Command控件和Text控件，用来浏览目录和保存默认路径。

4，在Command中添加以下代码：

PrivateSubCommand1_Click()
CommonDialog1.DialogTitle="选择保存目录"
CommonDialog1.Filter="全部文件(*.*)|*.*"
CommonDialog1.FileName="保存目录"
CommonDialog1.FilterIndex=2
CommonDialog1.ShowSave
IfCommonDialog1.FileName<>""Then
Text1=Left(CommonDialog1.FileName,Len(CommonDialog1.FileName)-Len(CommonDialog1.FileTitle))
Open"C:path.txt"ForOutputAs#1
Print#1,Text1'写入默认保存路径
Close#1
EndIf
EndSub

PrivateSubForm_Load()
OnErrorResumeNext
IfDir("C:path.txt")<>""Then
Open"C:path.txt"ForInputAs#1'自动读出默认保存路径
Input#1,TEMPA
Text1.Text=TEMPA
Close#1
EndIf
EndSub

5，以上代码就达到TEXT1控件中保存默认保存路径的目的，Command1点击选择时能保存默认路径到c:path.txt，程序运行时，自动读出默认保存路径。

㈡ VB通用对话框怎么选择文件夹类型的文件

'+部件 microsoft Common Dialog Control 6.0，并拖一个CommonDialog1和 Command1控件到窗体，
Private Sub Command1_Click()

CommonDialog1.FileName = "C:\Program Files\566.mp3" '打开的文件夹，及默让打开的文件名
CommonDialog1.Filter = "音乐文件(*.mp3)|*.mp3|文本文件(*.txt)|*.txt|JPG图片文件(*.jpg)|*.jpg|所有文件(*.*)|*.*|"
CommonDialog1.DialogTitle = " 打开文件" '弹出窗体的标题

CommonDialog1.ShowOpen

End Sub

㈢ 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

㈣ VB.net怎么弹出文件夹路径选择框

选择文件夹在工具箱-对话框里选择FolderBrowserDialog添加到设计器中

然后代码写在按钮事件里

FolderBrowserDialog1.ShowDialog()

textbox1.text=FolderBrowserDialog1.SelectedPath

选择文件在工具箱-对话框里选择OpenFileDialog

把OpenFileDialog1.ShowDialog()

TextBox1.Text=OpenFileDialog1.FileName

写到按钮事件下

如图

点缺咐悉击按钮会弹简纤出通用对话框选择好路径后确定，编辑框里就会显示选择的路径伏乎