Der Dateiname und des Verzeichnis, in dem sich die aktuelle Datenbank befindet, sind häufig benötigte Informationen.
Verwenden Sie die Prozedur DateinameZerlegen aus dem vorherigen Tipp, um beide Informationen zu ermitteln.
Den kompletten Dateinamen der Datenbank erhalten Sie über die Name-Eigenschaft der aktuellen Datenbank, wie das folgende Beispiel demonstriert:
Sub Dateiinfo()
Dim Name As String
Dim Pfad As String
Dim DB As Database
Set DB = CurrentDb()
DateinameZerlegen DB.Name, Pfad, Name
'Ergebnis im Testfenster ausgeben
Debug.Print Pfad
Debug.Print Name
End Sub
Beim Start übergeben Sie der Prozedur den kompletten Namen der Datei inklusive dem Pfad. Außerdem übergeben Sie zwei leere Variablen, die anschließend das Ergebnis aufnehmen.