1.6 スペシャルフォルダを得る - VBScript & JScript(JavaScript) Tips for WSH

1.6 スペシャルフォルダを得る

　マイドキュメント、スタートメニュー、IEのお気に入りなどのフォルダのパスを得る方法です。こういったフォルダは、PCやユーザ(2000やXPの場合)によって違うことがあるので、プログラムの中でフォルダのパスをベタで書かずに、スペシャルフォルダという情報から得るようにしましょう。

　スペシャルフォルダの情報を得るには、WScript.ShellオブジェクトのSpecialFoldersというプロパティから得ることが出来ます。

使用例

　SpecialFoldersの使用例です。例では、スペシャルフォルダの一覧を表示しています。

　①でWScript.Shellオブジェクトを作成し、あとはSpecialFoldersプロパティの情報をズラズラ表示しているだけ。

　■VBScriptでの記述例

Option Explicit

Dim objWshShell

'①WScript.Shellオブジェクトの作成
Set objWshShell = CreateObject("WScript.Shell")

'②デスクトップ
WScript.echo "DESKTOP    = " & objWshShell.SpecialFolders("Desktop")

'③お気に入り
WScript.echo "FAVORITES  = " & objWshShell.SpecialFolders("FAVORITES")

'③フォント
WScript.echo "FONTS      = " & objWshShell.SpecialFolders("FONTS")

'④マイドキュメント
WScript.echo "MYDOCUMENTS= " & objWshShell.SpecialFolders("MyDocuments")

'⑤NETHOOD
WScript.echo "NETHOOD    = " & objWshShell.SpecialFolders("NETHOOD")

'⑥PRINTHOOD
WScript.echo "PRINTHOOD  = " & objWshShell.SpecialFolders("PRINTHOOD")

'⑦スタートメニューのプログラム
WScript.echo "PROGRAMS   = " & objWshShell.SpecialFolders("PROGRAMS")

'⑧最近使ったファイル
WScript.echo "RECENT     = " & objWshShell.SpecialFolders("RECENT")

'⑨送る
WScript.echo "SENDTO     = " & objWshShell.SpecialFolders("SENDTO")

'⑩スタートメニュー
WScript.echo "STARTMENU  = " & objWshShell.SpecialFolders("STARTMENU")

'⑪スタートアップ
WScript.echo "STARTUP    = " & objWshShell.SpecialFolders("STARTUP")

'⑫テンプレート
WScript.echo "TEMPLATES  = " & objWshShell.SpecialFolders("TEMPLATES")

'⑬アプリケーションデータ
WScript.echo "Appdata    = " & objWshShell.SpecialFolders("Appdata")

'⑭デスクトップ（全ユーザ共通）
WScript.echo "AllUsersDesktop  = " & objWshShell.SpecialFolders("AllUsersDesktop")

'⑮スタートメニュー（全ユーザ共通）
WScript.echo "AllUsersStartMenu= " & objWshShell.SpecialFolders("AllUsersStartMenu")

'⑯スタートメニューのプログラム（全ユーザ共通）
WScript.echo "AllUsersPrograms = " & objWshShell.SpecialFolders("AllUsersPrograms")

'⑰スタートアップ（全ユーザ共通）
WScript.echo "AllUsersStartup  = " & objWshShell.SpecialFolders("AllUsersStartup")

Set objWshShell = Nothing

　※お使いのPCによっては表示しない物もあります。

　■JScript(JavaScript)での記述例

//①WScript.Shellオブジェクトの作成
var objWshShell = new ActiveXObject("WScript.Shell");

//②デスクトップ
WScript.echo("DESKTOP    = " + objWshShell.SpecialFolders("Desktop"));

//③お気に入り
WScript.echo("FAVORITES  = " + objWshShell.SpecialFolders("FAVORITES"));

//③フォント
WScript.echo("FONTS      = " + objWshShell.SpecialFolders("FONTS"));

//④マイドキュメント
WScript.echo("MYDOCUMENTS= " + objWshShell.SpecialFolders("MyDocuments"));

//⑤NETHOOD
WScript.echo("NETHOOD    = " + objWshShell.SpecialFolders("NETHOOD"));

//⑥PRINTHOOD
WScript.echo("PRINTHOOD  = " + objWshShell.SpecialFolders("PRINTHOOD"));

//⑦スタートメニューのプログラム
WScript.echo("PROGRAMS   = " + objWshShell.SpecialFolders("PROGRAMS"));

//⑧最近使ったファイル
WScript.echo("RECENT     = " + objWshShell.SpecialFolders("RECENT"));

//⑨送る
WScript.echo("SENDTO     = " + objWshShell.SpecialFolders("SENDTO"));

//⑩スタートメニュー
WScript.echo("STARTMENU  = " + objWshShell.SpecialFolders("STARTMENU"));

//⑪スタートアップ
WScript.echo("STARTUP    = " + objWshShell.SpecialFolders("STARTUP"));

//⑫テンプレート
WScript.echo("TEMPLATES  = " + objWshShell.SpecialFolders("TEMPLATES"));

//⑬アプリケーションデータ
WScript.echo("Appdata    = " + objWshShell.SpecialFolders("Appdata"));

//⑭デスクトップ（全ユーザ共通）
WScript.echo("AllUsersDesktop  = " + objWshShell.SpecialFolders("AllUsersDesktop"));

//⑮スタートメニュー（全ユーザ共通）
WScript.echo("AllUsersStartMenu= " + objWshShell.SpecialFolders("AllUsersStartMenu"));

//⑯スタートメニューのプログラム（全ユーザ共通）
WScript.echo("AllUsersPrograms = " + objWshShell.SpecialFolders("AllUsersPrograms"));

//⑰スタートアップ（全ユーザ共通）
WScript.echo("AllUsersStartup  = " + objWshShell.SpecialFolders("AllUsersStartup"));

objWshShell = null

　※お使いのPCによっては表示しない物もあります。