Shell.Application#BrowseForFolderでパスを得る

また半年放置だったのはさておく。(だってほぼPG(ぽんこつぢぇねれーた)引退状態だもんorz)

WindowsのShell.Applicationオブジェクト、BrowseForFolderメソッドでOS標準のフォルダ選択ダイアログが手軽に呼べるのだが、
これで返ってくるのがFolderオブジェクトなるもの。(ちなみにキャンセル時はVBの世界で言うNothingが返る)
こいつがフルパス持ってれば話は早いのだがそうぢゃないのでorz 一手間必要。
・Folder#ItemsでFolderItemsオブジェクトが返る。
・FolderItems#Itemメソッドを引数なしで呼ぶと、「FolderItemsの親のFolderオブジェクトに該当するFolderItemオブジェクト」が得られる。
・FolderItem#Pathでお望みのフルパスが手に入る。
まあ、実際書くときはoFolder.Items.Item.Path でいいわけなんだが。