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

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

【ソースコード】
[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\スタート メニュー