ユーザーの操作またはプログラムのコードによって、エクスプローラーが新しいフォルダーに移動する前に発生します。
構文
expression.
BeforeFolderSwitch( _NewFolder_ , _Cancel_ )
式エクスプローラー オブジェクトを表す変数。
パラメーター
| 名前 | 必須 / オプション | データ型 | 説明 |
|---|---|---|---|
| NewFolder | 必須 | オブジェクト型 (Object) | フォルダー オブジェクト エクスプ ローラーへの切り替えです。 |
| Cancel | 必須 | Boolean | False イベントが発生します。 イベント プロシージャでこの引数に True を設定する場合は、ナビゲーションをキャンセルすると、および現在のフォルダーは変更されません。 |
注釈
このイベントは Microsoft Visual Basic Scripting Edition (VBScript) では使用できません。
切り替え先のフォルダーがオートメーションをサポートしていない名前空間 (ファイル システムなど) 内にある場合、 NewFolder は Nothing です。
例
このサンプルでは、ユーザーが "Off Limits" という名前のフォルダーに切り替えるのを防ぎます。 サンプル コードは ThisOutlookSession などのクラス モジュールに配置し、イベント プロシージャを Microsoft Outlook で呼び出す前に、 Initialize_handler ルーチンを呼び出す必要があります。 この例をエラーなしに実行するには、アクティブなエクスプローラーに表示されているフォルダーに 'Off Limits' という名前のフォルダーが存在することを確認します。
Public WithEvents myOlExp As Outlook.Explorer
Public Sub Initialize_handler()
Set myOlExp = Application.ActiveExplorer
End Sub
Private Sub myOlExp_BeforeFolderSwitch(ByVal NewFolder As Object, Cancel As Boolean)
If NewFolder.Name = "Off Limits" Then
MsgBox "You don't have permission to access this folder."
Cancel = True
End If
End Sub
関連項目
サポートとフィードバック
Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。