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

使用MS Access 2016通过我们的网络将多个文件从多个源复制到多个目标。可以使用SysCmd在状态栏上显示进度栏。还可以通过Application.Echo True“msg”在状态栏上将文件复制计数器显示为msg。但两者都不如Windows文件复制进度条所使用的内容丰富，视觉效果也更具吸引力。查看了表单上的几个自定义进度条。如果我能开发出与Windows相同的信息和进度条，那就好了。但我想知道是否有一种方法可以从MS Access VBA调用Windows中使用的。先谢谢你

据我所知，实现这一点的唯一方法是创建自定义COM库。由于解释相当长，我将向您介绍一些参考资料（您需要一些Visual Studio版本来创建库，以及一些使用C#或VB.Net的经验）

您需要调用库中的

FileSystem.CopyFile

，将

ShowUI

设置为

AllDialogs

（）

---

有关如何创建库并在Access中注册库的说明，请参阅。

要显示windows进度条，可以使用

Shell.Folder.CopyHere

，请参阅-但每个目标文件夹只调用一次，而不是一个整体进度条。