Dim dlg As New OpenFileDialog '定义一个新的OpenFileDialog dlg.InitialDirectory = "d:\test"If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
End If