一括でフォルダを開く
Sub フォルダを開く()
CreateObject("Wscript.shell").Run "cmd.exe /c start C:\WINDOWS\system\"
CreateObject("Wscript.shell").Run "cmd.exe /c start C:\WINDOWS\system32\"
CreateObject("Wscript.shell").Run "cmd.exe /c start C:\WINDOWS\systemApps\"
End Sub