#105
Windowsのシステムが管理するフォルダ名を取得するには、従来はWindows APIの関数を使う必要がありましたが、FileSystemObjectオブジェクトの"GetSpecialFolderメソッド"を使うことによって簡単に調べられるようになりました。
どのフォルダを調べるかは、GetSpecialFolderメソッドに対する引数として指定します。
Dim Fso As Object
'FileSystemObjectオブジェクトを生成します
Set Fso = CreateObject("Scripting.FileSystemObject")
With Fso
'Windowsフォルダのパスを取得します("C:\WINDOWS"などの文字列が返されます)
Debug.Print .GetSpecialFolder(0)
'Systemフォルダのパスを取得します("C:\WINDOWS\SYSTEM"などの文字列が返されます)
Debug.Print .GetSpecialFolder(1)
'テンポラリフォルダのパスを取得します("C:\WINDOWS\TEMP"などの文字列が返されます)
Debug.Print .GetSpecialFolder(2)
End With
'FileSystemObjectオブジェクトを生成します
Set Fso = CreateObject("Scripting.FileSystemObject")
With Fso
'Windowsフォルダのパスを取得します("C:\WINDOWS"などの文字列が返されます)
Debug.Print .GetSpecialFolder(0)
'Systemフォルダのパスを取得します("C:\WINDOWS\SYSTEM"などの文字列が返されます)
Debug.Print .GetSpecialFolder(1)
'テンポラリフォルダのパスを取得します("C:\WINDOWS\TEMP"などの文字列が返されます)
Debug.Print .GetSpecialFolder(2)
End With
