Εμφάνιση ενός μόνο μηνύματος
  #4  
Παλιά 04-04-21, 11:32
tsgiannis Ο χρήστης tsgiannis δεν είναι συνδεδεμένος
Όνομα: Γιάννης
Έκδοση λογισμικού Office: Ms-Office 2016
Γλώσσα λογισμικού Office: Αγγλική
 
Εγγραφή: 08-12-2020
Μηνύματα: 91
Προεπιλογή

Δες αυτόν τον κώδικα
Κώδικας:
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 πρωτα
Απάντηση με παράθεση