Private Sub RefreshFileSystem(ByVal path As String)
' RootLocation 下ですべての位置をリセットします。また、
' Reset メソッドに True を渡すと、InitializeLocations イベントは
' 各位置に対して再び発生します。
Me.UltraNavigationBar1.RootLocation.ResetLocations(True)
' TODO:
' WinNavigationBar を遅延移植していない場合、
' ここに初期化コードを配置します。
' 保存したパスにナビゲートを戻します。WinNavigationBar は
' このパスを解析し、パスの各項目に対して
' InitializeLocations を発生させます。
Me.UltraNavigationBar1.NavigateTo(path, True)
End Sub