Dateiname und Pfad der aktuellen Datenbank ermitteln (Access 97, 2000)

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.