即効テクニック |
● 概要 ● 構文 Object.SpecialFolders(FolderSpec) 取得のみ 設定項目 内容 Object WshShellオブジェクトを指定[省略不可] FolderSpec 取得するフォルダの種類を文字列で指定[省略不可] デスクトップフォルダ、マイドキュメントフォルダ、スタートアップフォルダなどを取得します。 引数には次の表の文字列を指定します。 ・引数に指定する文字列 定数 内容 Desktop Desktopフォルダ Favorites Favoritesフォルダ Fonts Fontsフォルダ MyDocuments MyDocumentsフォルダ Programs Programsフォルダ Recent Recentフォルダ SendTo SendToフォルダ StartMenu StartMenuフォルダ StartUp StartUpフォルダ WshShellオブジェクトは参照設定を行ってから使用します。 サンプルは、デスクトップフォルダ、マイドキュメントフォルダ、スタートアップフォルダなどを取得して、[イミディエイト]ウィンドウに表示しています。 ● サンプル ● '特殊フォルダを取得する ' ?[ツール]→[参照設定]で「Windows Script Host Object Model」をチェック Sub Sample() Dim myWSH As New IWshRuntimeLibrary.WshShell With myWSH Debug.Print .SpecialFolders("Desktop") Debug.Print .SpecialFolders("Favorites") Debug.Print .SpecialFolders("Fonts") Debug.Print .SpecialFolders("MyDocuments") Debug.Print .SpecialFolders("Programs") Debug.Print .SpecialFolders("Recent") Debug.Print .SpecialFolders("SendTo") Debug.Print .SpecialFolders("StartMenu") Debug.Print .SpecialFolders("StartUp") Debug.Print .SpecialFolders("Windows") End With End Sub ● 補足 ● WshShellオブジェクトは利用する前に参照設定を行う必要があります。 参照設定は、[ツール]メニューから[参照設定]コマンドを選択して[参照設定]ダイアログボックスを表示します。ダイアログボックスが表示されたら、一覧から「Windows Script Host Object Model」をチェックして[OK]ボタンをクリックします。