Looping über alle Datenbanken in einem Verzeichnis

Question

Ich muss alle Datenbanken in einem bestimmten Verzeichnis durchlaufen, wobei der Datenbankname ACPwxyz.mdb lautet, wobei wxyz einem MMYY-Wert für den Zeitraum entspricht, für den die Datenbank verwendet wurde.

Zum Beispiel wäre die Datenbank für Juli 2017 ACP0717.mdb.

Ich habe noch nie in VB6 geschrieben und ich hasse es total, aber es ist eine Erweiterung zu einem bestehenden Projekt, also bin ich fest damit!

Gibt es eine Möglichkeit, alle Dateien in einem Verzeichnis zu durchlaufen und zu prüfen, ob der Dateiname dem Format ACPwxyz.mdb entspricht oder nicht, und wenn ja, dann wird eine Verbindung zu ihm hergestellt?

Ich habe mich ein bisschen umgesehen und sehe Dir(x, y), aber ich bin mir nicht sicher, ob ich das in dieser Situation verwenden kann?

Alle Tipps wären willkommen.

Answer 1

Sie können Dir verwenden, ja.

Wenn Sie so etwas wie folgt verwenden:

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 akzeptiert entweder ein Sternchen (*) oder ein Fragezeichen als Platzhalter in Dateinamen, so dass diese für jede Datenbank in dem Satz aussehen wird (?) Pfad, der ACP gefolgt von 4 Zeichen genannt wird.