Option Explicit
 
Private Sub Command2_Click()
    Dim fso As New FileSystemObject
    Dim f As File
 
    Set f = fso.GetFile(App.Path + "\xyz.mdb")
 
    Label1 = CStr(f.DateCreated)
    Label2 = CStr(f.DateLastModified)
 
    Set f = Nothing
    Set fso = Nothing
End Sub

Gru? Michi aus Hannover

1 + 1 = 3 f?r hinreichend gro?e 1