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

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

【ソースコード】

[tips0064.vbs]
Option Explicit
On Error Resume Next

Dim objFSO          ' FileSystemObject

Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")
If Err.Number = 0 Then
    WScript.Echo "WindowsFolder: " & objFSO.GetSpecialFolder(0)
    WScript.Echo "SystemFolder: " & objFSO.GetSpecialFolder(1)
    WScript.Echo "TemporaryFolder: " & objFSO.GetSpecialFolder(2)
Else
    WScript.Echo "エラー: " & Err.Description
End If

Set objFSO = Nothing

【実行結果】

C:\> cscript //NoLogo tips0064.vbs
WindowsFolder: C:\WINNT
SystemFolder: C:\WINNT\system32
TemporaryFolder: C:\DOCUME~1\ADMINI~1\LOCALS~1\Temp