Access TIPS フォルダ選択ダイアログ（Office Object Libraryを使用)、FileDialog

■ Access VBA 実行コード

'メニュー「ツール」-「参照設定」で「Microsoft Office 10.0 Object Library」にチェックしてください。
'Access2000の場合は、「Microsoft Office 9.0 Object Library」になります。

'フォルダ選択ダイアログ
Public Function SelectFolder_FileDialog() As String
Dim dlgfolder As FileDialog
'ダイアログのタイトル
Application.FileDialog(msoFileDialogFolderPicker).Title _
= "フォルダを選択してください"
'初期のフォルダ
Application.FileDialog(msoFileDialogFolderPicker).InitialFileName _
= "c:\windows\"
If Application.FileDialog(msoFileDialogFolderPicker).Show = -1 Then
'ファイルが選択された
SelectFolder_FileDialog = _
Application.FileDialog(msoFileDialogFolderPicker).SelectedItems(1)
Else
SelectFolder_FileDialog = ""
End If
End Function

'コマンドボタン　クリックイベント
Private Sub コマンド0_Click()
コマンド0.Caption = SelectFolder_FileDialog
End Sub

フォルダ選択ダイアログ（Office Object Library を使用) ： Access

■ Access VBA 実行コード

フォルダ選択ダイアログ（Office Object Library　を使用) ： Access