在Access中使用标准文件对话框

Question

我正在尝试在Access 2003中创建一个浏览/导出按钮。我需要的是一个命令按钮，它允许我使用标准文件打开对话框浏览位于计算机上的任何文件。找到文件后，我需要一个按钮将该文件导出到驱动器上的特定位置（S:\eDNA\admin\eDNA\Engine Data）。

Answer 1

您真正想要做的是将文件从本地驱动器复制到网络驱动器，而不是导出。为此，请将其添加到您的代码中：

Dim fso As Object
Set fso = VBA.CreateObject("Scripting.FileSystemObject")

然后你可以使用

fso.CopyFile(source, destination[, overwrite] )

您应该能够从标准对话表单中捕获源和目标。