◆ Explorer.CurrentFolderプロパティ

現在表示しているフォルダを取得／設定します。（Folderオブジェクト）

記述例：

現在選択しているフォルダ名を表示します。

Set MyExplorer = Application.ActiveExplorer Set MyFolder = MyExplorer.CurrentFolder Msgbox MyFolder.Name

★現在選択しているウィンドウを取得(Explorerオブジェクト） ★現在選択しているフォルダを取得(Folderオブジェクト） ★現在選択してるフォルダ名を表示

予定表を選択します。

Set MyNameSpace = Application.GetNameSpace("mapi") Set MyCalendar = MyNameSpace.GetDefaultFolder(9) Set Application.ActiveExplorer.CurrentFolder = MyCalendar

★Outlookルートオブジェクトを取得 ★予定表を取得 ★予定表を選択

≫≫  Outlookフォーム作成／開発／VBSプログラミング  ≫≫ Outlookオブジェクトモデルから学ぶ