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