Excelがある環境下で動くVBScript。SetWindowLongAに渡す値を調整すれば[一覧]などにもできます。 Option Explicit Dim Excel Set Excel = CreateObject("Excel.Application") Dim hWnd hWnd = Excel.ExecuteExcel4Macro("CALL(""user32"",""FindWindowA"", ""JCC"", ""Progman"",""Program Manager"")") hWnd = Excel.ExecuteExcel4Macro("CALL(""user32"",""FindWindowExA"",""JJJCJ""," & hWnd & ",0,""SHELLDLL_DefView"",0)") hWnd = Excel.ExecuteExcel4Macr
![デスクトップを[詳細]表示にする - やや温め納豆](https://cdn-ak-scissors.b.st-hatena.com/image/square/981144b2b55dea940cb01d5aef617ee354a060d1/height=288;version=1;width=512/https%3A%2F%2Fcdn-ak.f.st-hatena.com%2Fimages%2Ffotolife%2Fe%2Fegggarden%2F20080112%2F20080112111131.png)