[kapetang]

Καλησπέρα

Γιώργο, η παρακάτω συνάρτηση δίνει την ημερομηνία και την ώρα δημιουργίας του αρχείου που ορίζεται με την παράμετρο FullNameFile.

Function DateCreatingFile(FullNameFile) As Variant
'Η συνάρτηση επιστρέφει την ημερομηνία και την ώρα δημιουργίας
'του αρχείου που ορίζεται από την παράμετρο FullNameFile.
'------------------------------------------------------------
    Dim fso, f
    On Error GoTo Err_Handler
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set f = fso.GetFile(FullNameFile)
    DateCreatingFile = f.DateCreated
Exit_Function:
    Set fso = Nothing
    Set f = Nothing
    Exit Function
Err_Handler:
    DateCreatingFile = Null
    Resume Exit_Function
End Function

Επίσης η ιδιότητα currentDB.Name μας δίνει το πλήρες όνομα του αρχείου της ΒΔ.

Έτσι αν καλέσουμε τη συνάρτηση με FullNameFile= currentDB.Name θα επιστρέψει την ημερομηνία δημιουργίας της ΒΔ.

Φιλικά/Γιώργος