Accessから「Microsoft Office10.0 Object Library」を呼び出して、"フォルダ選択"ダイアログを表示、選択されたフォルダを得るための方法です。 ※下記方法を使うためには、VBEの[ツール]-[参照設定]メニューを実行し、「参照可能なライブラリファイル」一覧の"Microsoft Office10.0 Object Library"の項目にチェックを付けておく必要があります。 まず、ダイアログを表示し、そこで選択されたドライブ+フォルダ名を返すサンプルプロシージャを示します。これを標準モジュールなどに記述してください。 Public Function GetFolderName() As String 'フォルダ選択ダイアログの例 Dim intRet As Integer With Application.FileDialog(msoFileDialog