特殊フォルダを取得する

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





CSVや添付ファイルの書き出し等に指定する際に利用できます。
使用できる特殊フォルダは次のとおりです。(Windows7・Windows10動作確認済み)
・AllUsersDesktop
・AllUsersStartMenu
・AllUsersPrograms
・AllUsersStartup
・Desktop
・Favorites
・Fonts
・MyDocuments
・NetHood
・PrintHood
・Programs
・Recent
・SendTo
・StartMenu
・Startup
・Templates

LotusScript
mak
January 24, 2017 at 12:01 AM
Rating
0





No comments yetLogin first to comment...