循環遍歷目錄中的所有數據庫

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個字符。