ユーザーの操作またはプログラムのコードによって、エクスプローラーが新しいフォルダーに移動する前に発生します。
構文
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 のサポートおよびフィードバックを参照してください。