Forum

Αναζήτηση στο ms-office.gr

Πάμε!
ms-office.gr > Forum > Microsoft Access > Access - Ερωτήσεις / Απαντήσεις > [ Συναρτήσεις ] Αυτόματη διαγραφή αρχείων Backup

Access - Ερωτήσεις / Απαντήσεις Access + VBA... Εδώ δεν υπάρχουν όρια!

Απάντηση στο θέμα

 

Εργαλεία Θεμάτων Τρόποι εμφάνισης
  #1  
Παλιά 03-04-21, 12:38
Όνομα: Δημήτρης
Έκδοση λογισμικού Office: Ms-Office 2016
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 20-07-2014
Περιοχή: Πάτρα
Μηνύματα: 370
Προεπιλογή Αυτόματη διαγραφή αρχείων Backup

Καλησπέρα

Για να κάνω Backup τής βάσης καλώ την παρακάτω Function:

Παράθεση:
Public Function CreateBackupAccess() As Boolean
Dim Source As String
Dim Target As String
Dim A As Integer
Dim objFSO As Object
Dim Path As String

'Path = CurrentProject.Path 'get location of current folder
Path = "C:\BackUpAccess"
Source = CurrentDb.Name
Target = Path & "\BackupDB " & Format(Now(), "mm-dd hh_MM AM/PM") & ".accdb"

'create the backup
A = 0
Set objFSO = CreateObject("Scripting.FileSystemObject")
If objFSO.FolderExists(Path) Then 'Test if the folder exists before making a copy
A = objFSO.CopyFile(Source, Target, True)
Else
objFSO.CreateFolder (Path) 'Create folder if one does not exist
A = objFSO.CopyFile(Source, Target, True)
End If
Set objFSO = Nothing
End Function
Πώς πρέπει να συμπληρώσουμε τον κώδικα έτσι ώστε τα παλιά Backups
(αρχεία που δημιουργήθηκαν πριν από προεπιλεγμένη ημερομηνία)
να διαγράφονται αυτόματα ?

Σας ευχαριστώ εκ των προτέρων
__________________
Φιλικά/Δημήτρης
Απάντηση με παράθεση
  #2  
Παλιά 03-04-21, 19:33
Όνομα: Γιάννης
Έκδοση λογισμικού Office: Ms-Office 2016
Γλώσσα λογισμικού Office: Αγγλική
 
Εγγραφή: 08-12-2020
Μηνύματα: 91
Προεπιλογή

Μπορείς να εξετάζεις το Creation Date του κάθε backup και απο αυτό αναλόγως των κριτηρίων να κάνεις και τις διαγραφές
Δες εδώ :https://docs.microsoft.com/en-us/off...eated-property
Απάντηση με παράθεση
  #3  
Παλιά 03-04-21, 20:57
Όνομα: Δημήτρης
Έκδοση λογισμικού Office: Ms-Office 2016
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 20-07-2014
Περιοχή: Πάτρα
Μηνύματα: 370
Προεπιλογή

Καλησπέρα

Ευχαριστώ για την απάντηση!

Μπορείς, ωστόσο, να δώσεις ένα παράδειγμα, γιατί βλέπω ότι δεν τα καταφέρνω...

Ας πούμε ότι τα αρχεία μας ".accdb" είναι στο φάκελο "C:\BackUpAccess".
Πώς θα διαγράψουμε τα αρχεία με ημερομηνία δημιουργίας μεγαλύτερη των 10 ημερών?
__________________
Φιλικά/Δημήτρης

Τελευταία επεξεργασία από το χρήστη dimitrisp : 04-04-21 στις 21:24.
Απάντηση με παράθεση
  #4  
Παλιά 04-04-21, 11:32
Όνομα: Γιάννης
Έκδοση λογισμικού 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 πρωτα
Απάντηση με παράθεση
  #5  
Παλιά 04-04-21, 18:56
Όνομα: Δημήτρης
Έκδοση λογισμικού Office: Ms-Office 2016
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 20-07-2014
Περιοχή: Πάτρα
Μηνύματα: 370
Προεπιλογή

Καλησπέρα

Γιάννη, τέλεια! Ακριβώς αυτό ήθελα!

Ευχαριστώ. Καλή συνέχεια...
__________________
Φιλικά/Δημήτρης
Απάντηση με παράθεση
Απάντηση στο θέμα

Εργαλεία Θεμάτων
Τρόποι εμφάνισης

Δικαιώματα - Επιλογές
Δε μπορείτε να δημοσιεύσετε νέα μηνύματα
Δε μπορείτε να δημοσιεύσετε απαντήσεις
Δεν μπορείτε να επισυνάψετε αρχεία
Δεν μπορείτε να επεξεργαστείτε τα μηνύματα σας

Ο κώδικας ΒΒ είναι σε λειτουργία
Τα Smilies είναι σε λειτουργία
Ο κώδικας [IMG] είναι σε λειτουργία
Ο κώδικας HTML είναι εκτός λειτουργίας
Trackbacks are εκτός λειτουργίας
Pingbacks are εκτός λειτουργίας
Refbacks are εκτός λειτουργίας


Παρόμοια Θέματα

Θέμα Δημιουργός Forum Απαντήσεις Τελευταίο Μήνυμα
Αυτόματη εγκατάσταση αρχείων γιώργοςΚ Access - Ερωτήσεις / Απαντήσεις 1 06-10-19 12:12
Αυτόματη διαγραφή βάσης γιώργοςΚ Access - Ερωτήσεις / Απαντήσεις 2 24-09-14 23:24
[VBA] Αναζήτηση - Εκτέλεση - Διαγραφή αρχείων στην Excel Tasos Excel samples - Χρήσιμα αρχεία & παραδείγματα 0 25-10-12 16:10
Αυτόματη διαγραφή kirillos Access - Ερωτήσεις / Απαντήσεις 2 17-08-12 09:50
[VBA] Δημιουργία Backup πολλών αρχείων mak Excel - Ερωτήσεις / Απαντήσεις 7 23-07-11 19:21


Η ώρα είναι 23:26.