Dim openFileDialog As New OpenFileDialog()
' 设置文件选择对话框的属性
openFileDialog.InitialDirectory = "C:\" ' 设置初始目录
openFileDialog.Filter = "All Files (*.*)|*.*" ' 设置文件过滤器
' 打开文件选择对话框并获取用户选择的文件路径
If openFileDialog.ShowDialog() = DialogResult.OK Then
TextBox1.Text = openFileDialog.FileName ' 将文件路径设置给TextBox控件的Text属性
End If