<em>vb</em>怎么实现弹出<em>对话框</em>选择文件路径-

添加百CommonDialog控件
Private Sub Command1_Click()
CommonDialog1.ShowOpen
Text1.Text = CommonDialog1.FileName
End Sub
用通度用知对话道框，代码版参考权

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

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

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

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

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

在知 ThisWorkbook 的 Open 事件，写入道：
Private Sub Workbook_Open()
hh = MsgBox("是否打内开此表？容", vbOKCancel)
If hh = vbCancel Then Application.Quit
End Sub

好吧，我来拿分，
VB6.0或者VBA中，zhidao对话框的命令是：Application.FileDialog(msoFileDialogOpen)
括号里的参数有几个，其中有另存为。。。等。
例子啊：
Dim Dia1 As Object ‘定义一个变量
Set Dia1 = Application.FileDialog(msoFileDialogOpen) ’变量设置为对话框
Dia1.Show ‘这就打开了一个“打开文件”对话框了。

如果你想设回置其他的，比如窗口名字，筛选文件类别等，就只是用Dia1里的属性就行了。
什么，答title啦，filters(筛选文件类别)等等。。。

如果是.net，就不是这个啦，不过也差不多，同样也是一个dialog，我猜你用command1应该是6.0吧。

给分给分~~~