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

Question

使用MS Access 2016通过我们的网络将多个文件中的多个文件复制到多个目的地。可以使用SysCmd在状态栏上显示进度条。也可以通过Application.Echo True，“msg”将状态栏上的文件复制计数器显示为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中注册。