Ｐａｇｅ 663 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼フォルダ選択画面に指定したパスを表示したい ｷﾞｽﾞﾓ 03/2/3(月) 12:34 ┣Re:フォルダ選択画面に指定したパスを表示したい ichinose 03/2/3(月) 12:55 ┗Re:フォルダ選択画面に指定したパスを表示したい ぴかる 03/2/3(月) 12:56 ┗Re:フォルダ選択画面に指定したパスを表示したい ｷﾞｽﾞﾓ 03/2/3(月) 14:15 ─────────────────────────────────────── ■題名 ： フォルダ選択画面に指定したパスを表示したい ■名前 ： ｷﾞｽﾞﾓ <kenji10@moon.co.jp> ■日付 ： 03/2/3(月) 12:34 -------------------------------------------------------------------------
| BrowseForFolderを使用してフォルダ選択画面を表示する際に、 引数などで指定したパスを初期表示することはできないでしょうか。 開くたびにドライブパスなどから選択していく手間を省きたいのですが・・。 もし方法を知っている方がいましたら教えてください。 よろしくお願いします。 |
| ▼ｷﾞｽﾞﾓ さん： こんにちは。 >BrowseForFolderを使用してフォルダ選択画面を表示する際に、 >引数などで指定したパスを初期表示することはできないでしょうか。 >開くたびにドライブパスなどから選択していく手間を省きたいのですが・・。 >もし方法を知っている方がいましたら教えてください。 >よろしくお願いします。 '======================================================== Sub Test() Dim fld As Object Set fld = CreateObject("Shell.Application").BrowseForFolder(0, "フォルダを選択してください", 0, "D:\My Documents") ' 初期パス名を指定 If Not fld Is Nothing Then MsgBox fld.Items.Item.Path End If End Sub でも、初期パス名を指定すると、その上にはいけないんですよねえ・・・。 （色々試したけど､無理でしたが・・・） "D:\My Documents"の直接指定ではなく、変数を指定する場合は､Variant型を指定しないとちゃんと初期設定してくれませんでした。 |
| ｷﾞｽﾞﾓさん、こんにちは。 >BrowseForFolderを使用してフォルダ選択画面を表示する際に、 >引数などで指定したパスを初期表示することはできないでしょうか。 >開くたびにドライブパスなどから選択していく手間を省きたいのですが・・。 以前によく似た質問がありましてフォローして頂きました。その内容の紹介です。 こういう事でよろしいでしょうか？。フォルダ表示まででファイル表示はされないもんなんですね？。 Sub test() Dim Folder As Object Set Folder = CreateObject("Shell.Application"). _ BrowseForFolder(0, "フォルダを選択してください", 0, 指定パス) End Sub |
| ichinoseさん、ぴかるさん、ありがとうございました。 バリアント型で最後の引数を渡したらうまく表示されました。 ただichonoseさんのおっしゃるとおり 指定したパスの上にはいけないんですね(^^;) ドライブ等を変更できるようにしたい場合は 選択画面を自前で作るしかないのでしょうか。 |