FileSystemObject オブジェクト .GetSpecialFolder
( 特殊フォルダの種類 )
| 値 | 内容 |
|---|---|
| 0 | Windows オペレーティング システムによりセットアップされたファイルの置かれている Windows フォルダが返されます。 |
| 1 | ライブラリ、フォント、デバイス ドライバなどの置かれている System フォルダが返されます。 |
| 2 | 一時ファイルの格納に使用される Temp フォルダが返されます。このパスは、環境変数 TMP より取得します。 |
Dim objFS, objFolder
Set objFS = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFS.GetSpecialFolder(1)
WScript.Echo objFolder.Path
