以下の例は C:\Program Filesフォルダを表示する。
| Dim
FolderName As String FolderName = "C:\Program Files\" Shell "rundll32.exe url.dll,FileProtocolHandler " & FolderName, vbNormalFocus |
VB6
エクスプローラでフォルダを開く
１．url.dllを使う例
以下の例は C:\Program Filesフォルダを表示する。
Dim FolderName As String
FolderName = "C:\Program Files\"
Shell "rundll32.exe url.dll,FileProtocolHandler " & FolderName, vbNormalFocus
２．Shellオブジェクトを使う例
以下の例は C:\Program Filesフォルダを表示する。
この例ではフォルダツリー付きでエクスプローラが表示されるようだ。
Dim Sh As Object
Dim FolderName As String
Set Sh = CreateObject("Shell.Application")FolderName = "C:\Program Files\"
Sh.Explore FolderName
この例を実行するにはバージョン 4.71以上のShell32.dllが必要。
CreateObjectではなく「Microsoft Shell Controls And Automation」に参照設定をしても同じことができる。