Forms 向MS Access窗体添加文件浏览器按钮

我想在MS Access 2007表单中添加一个“浏览”按钮，该按钮将打开标准Windows文件浏览器（作为模式窗口），并允许用户选择目录。当用户退出该浏览器时，所选目录的路径应写入访问表单中的文本框

---

最好的方法是什么？是否有本机访问方式？

创建一个使用

Application.FileDialog

的函数。

FileDialog

是模态的

如果用户选择了文件夹，此函数将返回该文件夹；如果用户在

文件对话框

上单击取消，则返回空字符串

公共函数FolderSelection（）作为字符串
作为对象的Dim objFD
像弦一样的暗弦
strOut=vbNullString
'msoFileDialogFolderPicker=4
设置objFD=Application.FileDialog（4）
如果objFD.Show=-1，则
strOut=objFD.SelectedItems（1）
如果结束
设置objFD=Nothing
FolderSelection=strOut
端函数

我认为您可以在命令按钮的单击事件中使用该功能

Dim strChoice作为字符串
strChoice=文件夹选择
如果Len（strChoice）>0，则
Me.TextBoxName=strChoice
其他的
'如果用户取消选择，会发生什么情况？
如果结束

---

如果您担心Microsoft有一天会从Office中删除

FileDialog

对象，您可以使用Windows API方法：。

我始终建议使用Windows API，因为我不相信MS有一天不会从Office中删除FileDialog对象，因为他们从Office 2007中删除了FileSearch对象。