VB 打开文件浏览对话框，并自动把文件路径填写到Text1中。

在工具箱上右击，选择部件
在部件对话框中找到Microsoft Common Dialog Control 6.0 (sp3)
在窗口上创建CommonDialog1
写入以下代码
Private Sub Command1_Click()
CommonDialog1.ShowOpen
If CommonDialog1.FileName <> 0 Then
Open CommonDialog1.FileName For Output As #1
Text1.Text = CommonDialog1.FileName
Close #1
End If
End Sub