在 Access-VBA (2016) 中显示 Windows 文件复制进度条

Question

使用 MS Access 2016 通过我们的网络将多个文件从多个来源复制到多个目的地。可以使用 SysCmd 在状态栏上显示进度条。还可以通过 Application.Echo True, "msg" 将文件复制计数器显示为状态栏上的消息。但两者都没有 Windows 文件复制进度条所使用的信息或视觉吸引力。已经查看了表单上的几个自定义进度条。如果我可以开发每一个以显示与 Windows 使用的相同的信息和进度条，那就没问题了。但我想知道是否有一种方法可以从 MS Access VBA 调用 Windows 中使用的那个。先感谢您。

Answer 1

据我所知，实现此目的的唯一方法是创建自定义 COM 库。由于解释比较长，我会向您推荐一些资源（您将需要一些版本的 Visual Studio 来创建库，以及一些 C# 或 VB.Net 的经验）。

您需要在库中调用FileSystem.CopyFile，并将ShowUI 设置为AllDialogs (https://msdn.microsoft.com/en-us/library/ms127965(v=vs.110).aspx?cs-save-lang=1&cs-lang=vb)。

请参阅http://www.geeksengine.com/article/create-dll.html 了解如何创建库并在 Access 中注册它的说明。