Access - Ερωτήσεις / Απαντήσεις Access + VBA... Εδώ δεν υπάρχουν όρια! |
| Εργαλεία Θεμάτων | Τρόποι εμφάνισης |
#1
| |||
| |||
Αυτόματη διαγραφή αρχείων Backup
Καλησπέρα Για να κάνω Backup τής βάσης καλώ την παρακάτω Function: Παράθεση:
(αρχεία που δημιουργήθηκαν πριν από προεπιλεγμένη ημερομηνία) να διαγράφονται αυτόματα ? Σας ευχαριστώ εκ των προτέρων |
#2
| |||
| |||
Μπορείς να εξετάζεις το Creation Date του κάθε backup και απο αυτό αναλόγως των κριτηρίων να κάνεις και τις διαγραφές Δες εδώ :https://docs.microsoft.com/en-us/off...eated-property |
#3
| |||
| |||
Καλησπέρα Ευχαριστώ για την απάντηση! Μπορείς, ωστόσο, να δώσεις ένα παράδειγμα, γιατί βλέπω ότι δεν τα καταφέρνω... Ας πούμε ότι τα αρχεία μας ".accdb" είναι στο φάκελο "C:\BackUpAccess". Πώς θα διαγράψουμε τα αρχεία με ημερομηνία δημιουργίας μεγαλύτερη των 10 ημερών? Τελευταία επεξεργασία από το χρήστη dimitrisp : 04-04-21 στις 22:24. |
#4
| |||
| |||
Δες αυτόν τον κώδικα Κώδικας: 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 |
#5
| |||
| |||
Καλησπέρα Γιάννη, τέλεια! Ακριβώς αυτό ήθελα! Ευχαριστώ. Καλή συνέχεια... |
« Προηγούμενο Θέμα
|
Επόμενο Θέμα »
| |
Παρόμοια Θέματα | ||||
Θέμα | Δημιουργός | Forum | Απαντήσεις | Τελευταίο Μήνυμα |
Αυτόματη εγκατάσταση αρχείων | γιώργοςΚ | Access - Ερωτήσεις / Απαντήσεις | 1 | 06-10-19 13:12 |
Αυτόματη διαγραφή βάσης | γιώργοςΚ | Access - Ερωτήσεις / Απαντήσεις | 2 | 25-09-14 00:24 |
[VBA] Αναζήτηση - Εκτέλεση - Διαγραφή αρχείων στην Excel | Tasos | Excel samples - Χρήσιμα αρχεία & παραδείγματα | 0 | 25-10-12 17:10 |
Αυτόματη διαγραφή | kirillos | Access - Ερωτήσεις / Απαντήσεις | 2 | 17-08-12 10:50 |
[VBA] Δημιουργία Backup πολλών αρχείων | mak | Excel - Ερωτήσεις / Απαντήσεις | 7 | 23-07-11 20:21 |
Η ώρα είναι 19:44.