Hi..
Private Sub btnbrowse_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbrowse.Click
Try
Dim dlg As New OpenFileDialog
dlg.InitialDirectory = Application.StartupPath
dlg.Filter = " (*.xlsx)|*.xlsx"
dlg.FilterIndex = 1
If dlg.ShowDialog() = Windows.Forms.DialogResult.OK Then
txtname.Text = dlg.FileName
End If
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub
I hope this will help you....