特殊フォルダのパスを取得する@VBS

特殊フォルダのパスを取得するFunctionを作りました。
以下のディレクトリパスが取得出来ます。

デスクトップ(共通)
スタートメニュー(共通)
スタートメニュー内の「プログラム」フォルダ(共通)
スタートメニュー内の「スタートアップ」フォルダ(共通)
デスクトップ
お気に入り
フォント
マイドキュメント
マイネットワーク
プリンタ
スタートメニュー内の「プログラム」フォルダ
最近使ったファイル
送るメニュー
スタートメニュー
スタートメニュー内の「スタートアップ」フォルダ
テンプレート
WINDOWSディレクトリ
システムディレクトリ
テンポラリディレクトリ

'//////////////////////////////////
'Function GetSpecialFolder
'特殊フォルダのパスを取得します。
'呼び出し方
'GetSpecialFolder()
'//////////////////////////////////
Function GetSpecialFolder(GFS_No)
	'スペシャルフォルダ一覧
	'AllUsersDesktop	デスクトップ(共通) 
	'AllUsersStartMenu	スタートメニュー(共通)
	'AllUsersPrograms	スタートメニュー内の「プログラム」フォルダ(共通)
	'AllUsersStartUp	スタートメニュー内の「スタートアップ」フォルダ(共通)
	'Desktop			デスクトップ
	'Favorites			お気に入り
	'Fonts				フォント
	'MyDocuments		マイドキュメント
	'NetHood			マイネットワーク
	'PrintHood			プリンタ
	'Programs			スタートメニュー内の「プログラム」フォルダ
	'Recent				最近使ったファイル
	'SendTo				送るメニュー
	'StartMenu			スタートメニュー
	'Startup			スタートメニュー内の「スタートアップ」フォルダ
	'Templates			テンプレート
	'0			WINDOWSディレクトリ
	'1			システムディレクトリ
	'2			テンポラリディレクトリ
	'-----------------------------------
	Dim objFS
	Dim objShell
	Dim objFolder
	
	Set objFS = CreateObject("Scripting.FileSystemObject")
	
	If IsNumeric(GFS_No) = true Then
		Set objFolder = objFS.GetSpecialFolder(GFS_No)
		GetSpecialFolder = objFolder.Path
	Else
		Set objShell = WScript.CreateObject("WScript.Shell")
		GetSpecialFolder = objShell.SpecialFolders(GFS_No)
	End If
	
	Set objFS = Nothing
	Set objShell = Nothing
	Set objFolder = Nothing
End Function

（使用例）デスクトップのパスを表示します。

msgbox GetSpecialFolder("Desktop")

Function GetSpecialFolder(GFS_No)
	Dim objFS
	Dim objShell
	Dim objFolder
	
	Set objFS = CreateObject("Scripting.FileSystemObject")
	
	If IsNumeric(GFS_No) = true Then
		Set objFolder = objFS.GetSpecialFolder(GFS_No)
		GetSpecialFolder = objFolder.Path
	Else
		Set objShell = WScript.CreateObject("WScript.Shell")
		GetSpecialFolder = objShell.SpecialFolders(GFS_No)
	End If
	
	Set objFS = Nothing
	Set objShell = Nothing
	Set objFolder = Nothing
End Function

関連する記事一覧

関連する記事の一覧です。

1. スクリプトを使用してフォントをインストールする
   

   未だにVBScriptについて新しい話題を提供してくれるHey, Scripting Guy!に運用で使えそうなスクリプトがあったのでご紹介。 Fontのコピーってなかなか手間だったりするのですが、このスクリプトを利用す [...]...

2. スクリプトでファイルのプロパティを取得する
   

   10万ファイルくらいのJPGの中から、特定のファイルサイズの物だけを抜き出せますか？と今日聞かれてちょっと調べてみました。 VBScriptでも、結構有用な情報を表示させる事が出来るようです。 Windows Serve [...]...

3. 全てのゲストOSを停止状態にしてさらにバックアップを取得@VirtualServer2005
   

   Virtual Server 2005上のゲストOSの状態を保存し、さらにその間に特定DISKにゲストOSのデータをバックアップ、さらにゲストOSを復旧させるスクリプトを作りました。 Virtual Server...

4. VBスクリプトでディレクトリ階層を一回で作成する方法
   

   指定したディレクトリの親ディレクトリを参照し、無ければ親ディレクトリを作成します。Subの中に再度Subを呼ぶ部分があって、さらにその後ディレクトリを作成します。ここがポイントですね。勉強になりました。...

5. 今日の日付でディレクトリを作成する@VBS
   

   自動的にディレクトリを作成して、そこにバックアップを取っておきたいときってあるじゃないですか。 このスクリプトを使ってもらえれば自動的にディレクトリの作成を行ってくれます。 あとは適当にディレクトリの中に入れたい物でも追 [...]...