Folder Open

Set DIR03 = WScript.CreateObject("Shell.Application")
DIR03.Open "***"
Set DIR03 = Nothing

Set ZOODIR01 = WScript.CreateObject("InternetExplorer.application")
ZOODIR01.Navigate "mailto:***@***.ne.jp?Subject =エラー対応依頼"
Set ZOODIR01 = Nothing