Dim WSH As Variant Dim strPath As String Set WSH = CreateObject("WScript.Shell") strPath = WSH.SpecialFolders("取得する特定フォルダの名前") Msgbox strPath