特殊フォルダを取得する

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

Select XSnippet to copy to Clipboard