Windowsの特殊フォルダのパスを取得する。

Windowsの特殊フォルダのパスを取得するにはFileSystemObjectのgetSpecialFolderメソッドを利用します。

サンプルコードで取得するのは以下の３つの特殊フォルダのパスを取得しています。
※実行はWindows10でしています。
　・Windowsフォルダ
　・System32フォルダ
　・Tempフォルダ

'******************************************************************
'　特殊フォルダのパスを取得する
'******************************************************************
Sub Main_getSpecialFolder()

    'FileSystemObjectの作成
    Dim ofso As Object
    Set ofso = CreateObject("Scripting.FileSystemObject")
    
    'Windowsフォルダのパスを取得
    Debug.Print ofso.GetSpecialFolder(0)
    
    'System32フォルダのパスを取得
    Debug.Print ofso.GetSpecialFolder(1)
    
    'Tempフォルダのパスを取得
    Debug.Print ofso.GetSpecialFolder(2)

End Sub