[特殊フォルダを取得する]

ウィンドウズの特殊フォルダ名を取得します。

【ソースコード】

[tips0114.vbs]
Option Explicit
On Error Resume Next

Dim objWshShell     ' WshShell オブジェクト

Set objWshShell = WScript.CreateObject("WScript.Shell")
If Err.Number = 0 Then
    WScript.Echo "○デスクトップ"
    WScript.Echo "　" & objWshShell.SpecialFolders("Desktop")
    WScript.Echo "○お気に入り"
    WScript.Echo "　" & objWshShell.SpecialFolders("Favorites")
    WScript.Echo "○フォント"
    WScript.Echo "　" & objWshShell.SpecialFolders("Fonts")
    WScript.Echo "○マイ・ドキュメント"
    WScript.Echo "　" & objWshShell.SpecialFolders("MyDocuments")
    WScript.Echo "○マイ・ネットワーク"
    WScript.Echo "　" & objWshShell.SpecialFolders("NetHood")
    WScript.Echo "○プリンタ"
    WScript.Echo "　" & objWshShell.SpecialFolders("PrintHood")
    WScript.Echo "○最近使ったファイル"
    WScript.Echo "　" & objWshShell.SpecialFolders("Recent")
    WScript.Echo "○送るメニュー"
    WScript.Echo "　" & objWshShell.SpecialFolders("SendTo")
    WScript.Echo "○スタートメニュー"
    WScript.Echo "　" & objWshShell.SpecialFolders("StartMenu")
Else
    WScript.Echo "エラー: " & Err.Description
End If

Set objWshShell = Nothing

【実行結果】

C:\> cscript //NoLogo tips0114.vbs
○デスクトップ
　C:\Documents and Settings\Administrator\デスクトップ
○お気に入り
　C:\Documents and Settings\Administrator\Favorites
○フォント
　C:\WINNT\Fonts
○マイ・ドキュメント
　C:\Documents and Settings\Administrator\My Documents
○マイ・ネットワーク
　C:\Documents and Settings\Administrator\NetHood
○プリンタ
　C:\Documents and Settings\Administrator\PrintHood
○最近使ったファイル
　C:\Documents and Settings\Administrator\Recent
○送るメニュー
　C:\Documents and Settings\Administrator\SendTo
○スタートメニュー
　C:\Documents and Settings\Administrator\スタート メニュー