Shell関数で指定フォルダや共有サーバーのフォルダを開くことは可能です。
FileSystemObjectを使用することで、サブフォルダを開くことも可能です。
サブフォルダを開くサンプルコード
Public Sub sample() '■FileSystemObjectの宣言 Dim fso As Object: Set fso = CreateObject("Scripting.FileSystemObject") '■Shellオブジェクトの宣言 Dim sShell As Object: Set sShell = CreateObject("Shell.Application") Dim tmp As String: tmp = "C:\vba" '■tmp(C:\vba)内のサブフォルダを開く Dim sFolder As Object For Each sFolder In fso.GetFolder(tmp).SubFolders sShell.ShellExecute sFolder Next '■実行例 'C:\vba\A、C:\vba\Bと存在すれば、 'Aフォルダ、Bフォルダが開く。(ただ開くだけ) End Sub
注意点
- 特にありません。
コメント