Set objShell = WScript.CreateObject("WScript.Shell") objShell.Run "explorer" WScript.Sleep 2000 objShell.SendKeys "%TO" WScript.Sleep 1000 objShell.SendKeys "^{TAB}" WScript.Sleep 500 objShell.SendKeys "{TAB}" WScript.Sleep 100 objShell.SendKeys "{TAB}" WScript.Sleep 100 objShell.SendKeys "{END}" WScript.Sleep 100 objShell.SendKeys "{UP}" WScript.Sleep 100 objShell.SendKeys "{UP}" WScript.Sleep 100 WScript.Echo "登録されている拡張子は表示しないのチェックがついている場合、拡張子が表示されないファイルがあります。"