エクスプローラでプログラム指定フォルダ起動
うさこちゃん
このサンプルはShell関数を利用してエクスプローラでプログラム指定フォルダ起動を開きます。
サンプルコード
うさこちゃん
サンプルコードではエクスプローラで「D:\Work」にウィンドウフォーカスを持たせて通常サイズで開きます。
Dim StrFolderPath as String
StrFolderPath = "D:\Work"
Shell "C:\Windows\Explorer.exe " & StrFolderPath, vbNormalFocus
Shell(パス, [ ウィンドウスタイル ])
ウィンドウスタイル 定数
| 定数 | 説明 |
|---|---|
| vbHide | 非表示になる。 |
| vbNormalFocus | ウィンドウにフォーカスが行く。 通常サイズで開く。 |
| vbMinimizedFocus | ウィンドウがフォーカスが行く。 最小サイズで開く。 |
| vbMaximizedFocus | ウィンドウにフォーカスが行く。 最大サイズで開く。 |
| vbNormalNoFocus | ウィンドウにフォーカスはいかない。 通常サイズで開く。 |
| vbMinimizedNoFocus | ウィンドウにフォーカスはいかない。 最小サイズで開く。 |
📝 免責事項
本記事のサンプルプログラムは実行を保証するものではなく、利用に伴う結果について一切の責任を負いません。
※本文中に記載の会社名・製品名・サービス名・ゲームタイトル名等は、各社の商標または登録商標であり、権利は各社に帰属します。
※サンプルはテストを行っていますが、すべての環境での動作を保証するものではありません。ご利用は自己責任でお願いいたします。
※本記事の仕様・価格・対応状況等は執筆時点で確認できた情報をもとに掲載しています。最新の情報はメーカー公式サイトをご確認ください。
※当サイトでは一部の記事において、アイキャッチ画像にAI生成を使用しています。