string(24) "SpecialFolders (WShell)" SpecialFolders (WShell) | UWSC辞典

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

Was this post helpful?