Abrir una carpeta

Private Sub btn_open_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_open.Click

        System.Diagnostics.Process.Start(New System.Diagnostics.ProcessStartInfo() With { _
  .FileName = Directory.GetCurrentDirectory(), _
  .UseShellExecute = True, _
  .Verb = "open" _
})
    End Sub