- 構文
- WshShell.SpecialFolders( objWshSpecialFolders )
- 引数
- objWshSpecialFolders省略可
- 取得するフォルダの名前
- 戻り値
SpecialFolderの定数一覧
| 文字列 | 値 | 内容 |
|---|---|---|
| AllUsersDesktop | 0 | すべてのユーザーに共通のデスクトップ |
| AllUsersStartMenu | 1 | すべてのユーザーに共通のスタートメニュー |
| AllUsersPrograms | 2 | すべてのユーザーに共通のプログラムメニュー |
| AllUsersStartup | 3 | すべてのユーザーに共通のスタートアップ |
| Desktop | 4 | ログインユーザーのデスクトップ |
| AppData | 5 | ログインユーザーのアプリ用データ |
| PrintHood | 6 | ログインユーザーのプリンタ |
| Templates | 7 | ログインユーザーの新規作成のテンプレート |
| Fonts | 8 | フォント |
| NetHood | 9 | ログインユーザーのネットワーク |
| Desktop | 10 | ログインユーザーのデスクトップ |
| StartMenu | 11 | ログインユーザーのスタートメニュー |
| SendTo | 12 | ログインユーザーの送る |
| Recent | 13 | ログインユーザーの最近使ったファイル |
| Startup | 14 | ログインユーザーのスタートアップ |
| Favorites | 15 | ログインユーザーのお気に入り |
| MyDocuments | 16 | ログインユーザーのマイドキュメント |
| Programs | 17 | ログインユーザーのプログラムメニュー |
他の定数と被らないようにとりあえすSpecialFolderの定数だから接頭辞「sf」を付与。
CONST sfAllUsersDesktop = 0
CONST sfAllUsersStartMenu = 1
CONST sfAllUsersPrograms = 2
CONST sfAllUsersStartup = 3
CONST sfDesktop = 4
CONST sfAppData = 5
CONST sfPrintHood = 6
CONST sfTemplates = 7
CONST sfFonts = 8
CONST sfNetHood = 9
CONST sfDesktop = 10
CONST sfStartMenu = 11
CONST sfSendTo = 12
CONST sfRecent = 13
CONST sfStartup = 14
CONST sfFavorites = 15
CONST sfMyDocuments = 16
CONST sfPrograms = 17プログラム実行例
特殊フォルダのパスを取得
DIM WshShell = CREATEOLEOBJ("WScript.Shell")
FOR i = 0 TO 17
PRINT i + "<#TAB>" + WshShell.SpecialFolders(i)
NEXT-
(1)
(4)
- 結果
0 C:\Users\Public\Desktop 1 C:\ProgramData\Microsoft\Windows\Start Menu 2 C:\ProgramData\Microsoft\Windows\Start Menu\Programs 3 C:\ProgramData\Microsoft\Windows\Start Menu\Programs\StartUp 4 C:\Users\username\Desktop 5 C:\Users\username\AppData\Roaming 6 C:\Users\username\AppData\Roaming\Microsoft\Windows\Printer Shortcuts 7 C:\Users\username\AppData\Roaming\Microsoft\Windows\Templates 8 C:\Windows\Fonts 9 C:\Users\username\AppData\Roaming\Microsoft\Windows\Network Shortcuts 10 C:\Users\username\Desktop 11 C:\Users\username\AppData\Roaming\Microsoft\Windows\Start Menu 12 C:\Users\username\AppData\Roaming\Microsoft\Windows\SendTo 13 C:\Users\username\AppData\Roaming\Microsoft\Windows\Recent 14 C:\Users\username\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Startup 15 C:\Users\username\Favorites 16 C:\Users\username\Documents 17 C:\Users\username\AppData\Roaming\Microsoft\Windows\Start Menu\Programs