SpecialFolders

構文
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. CREATEOLEOBJ
  2. WshShell.SpecialFolders
結果
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