[tsgiannis]

Δες αυτόν τον κώδικα

Public Function checkCreationdate()
Dim strFile As String
Dim InputDir As String
Dim Creationdate As Date
Dim oFS As Object
InputDir = "C:\BackUpAccess\"
Set oFS = CreateObject("Scripting.FileSystemObject")
    strFile = Dir(InputDir)
    Do While Len(strFile) > 0
    Creationdate = oFS.GetFile(InputDir & strFile).DateCreated
    Debug.Print strFile & " was created on " & Creationdate
    If DateDiff("d", Creationdate, Date) > 10 Then
    'Kill InputDir & strFile
    Debug.Print "to Delete : " & InputDir & strFile
    End If
        strFile = Dir

    Loop

End Function

Εχω απενεργοποιησει την διαγραφή (Kill)...έλεγξε το σε Backup πρωτα