'SpecialFoldersプロパティで取得できる特殊フォルダ ' objShell.SpecialFolders("フォルダ指定") '---------------------------------------------------------- 'フォルダ指定 :意味 'AllUsersDesktop :All Usersのデスクトップ 'AllUsersStartMenu:All Usersのスタート・メニュー 'AllUsersPrograms :All Usersのスタート・メニューの「すべてのプログラム」 'AllUsersStartup :All Usersのスタート・メニューの「スタートアップ」 'Desktop :デスクトップ 'Favorites :お気に入り 'Fonts :フォント 'MyDocuments :マイ・ドキュメント 'NetHood :マイ・ネットワーク 'PrintHood :プリンタ 'Programs :スタート・メニューの「すべてのプログラム」 'Recent :最近使ったファイル 'SendTo :コンテキスト・メニューの「送る」 'StartMenu :スタート・メニュー 'Startup :スタート・メニューの「スタートアップ」 'Templates :ファイルの新規作成のテンプレート ' Set objShell = WScript.CreateObject("WScript.Shell") WScript.Echo "Desktop:" & objShell.SpecialFolders("Desktop") WScript.Echo "Favorites: " & objShell.SpecialFolders("Favorites") WScript.Echo "MyDocuments: " & objShell.SpecialFolders("MyDocuments") WScript.Echo "SendTo: " & objShell.SpecialFolders("SendTo") WScript.Echo "StartMenu: " & objShell.SpecialFolders("StartMenu") WScript.Echo "Startup: " & objShell.SpecialFolders("Startup")