エクスプローラでプログラム指定フォルダ起動
うさこちゃん
このサンプルはShell関数を利用してエクスプローラでプログラム指定フォルダ起動を開きます。
サンプルコード
うさこちゃん
サンプルコードではエクスプローラで「D:\Work」にウィンドウフォーカスを持たせて通常サイズで開きます。
Dim StrFolderPath as String
StrFolderPath = "D:\Work"
Shell "C:\Windows\Explorer.exe " & StrFolderPath, vbNormalFocus
Shell(パス, [ ウィンドウスタイル ])
ウィンドウスタイル 定数
| 定数 | 説明 |
|---|---|
| vbHide | 非表示になる。 |
| vbNormalFocus | ウィンドウにフォーカスが行く。 通常サイズで開く。 |
| vbMinimizedFocus | ウィンドウがフォーカスが行く。 最小サイズで開く。 |
| vbMaximizedFocus | ウィンドウにフォーカスが行く。 最大サイズで開く。 |
| vbNormalNoFocus | ウィンドウにフォーカスはいかない。 通常サイズで開く。 |
| vbMinimizedNoFocus | ウィンドウにフォーカスはいかない。 最小サイズで開く。 |
📝 免責事項
本記事のサンプルプログラムは実行を保証するものではなく、利用に伴う結果について一切の責任を負いません。
