循环遍历目录中的所有数据库

Question

我需要遍历特定目录中的所有数据库，其中数据库名称为ACPwxyz.mdb，其中wxyz等效于数据库用于的时间段的MMYY值。

例如，2017年7月的数据库将是ACP0717.mdb。

我之前从未用VB6编写，我完全讨厌它，但它是现有项目的扩展，所以我坚持使用它！

是否有办法循环遍历目录中的所有文件，检查文件名是否遵循ACPwxyz.mdb的格式，如果是，则打开与它的连接？

我看了一下，看到Dir(x, y)，但我不确定在这种情况下是否可以使用它？

任何提示都将不胜感激。

Answer 1

您可以使用Dir，是的。

如果你使用这样的东西：

Dim strFile As String
strFile = Dir(yourDBPath, "ACP????.mdb") ' mdb for MS-Access files

Do Until strFile = ""
 If Len(strFile) = 11 Then ' Ensure the DB file name is 11 characters, which yours are

   'Do something // You can also check the file name doesn't = a certain name if needed

 End If

 strFile = Dir
Loop

Dir接受星号（*）或问号（？）作为文件名中的通配符，因此这将查找设置路径中名为ACP的所有数据库，后跟4个字符。