HOME > 即効テクニック > AccessVBA > ファイル操作・他アプリケーションとの連携 > 特殊フォルダ(デスクトップフォルダなど)を取得する

即効テクニック

ファイル操作・他アプリケーションとの連携

特殊フォルダ(デスクトップフォルダなど)を取得する

(Access 2000/2002)
● 概要 ●
構文    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]ボタンをクリックします。