Εμφάνιση ενός μόνο μηνύματος
  #1  
Παλιά 03-04-21, 12:38
dimitrisp Ο χρήστης dimitrisp δεν είναι συνδεδεμένος
Όνομα: Δημήτρης
Έκδοση λογισμικού 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
(αρχεία που δημιουργήθηκαν πριν από προεπιλεγμένη ημερομηνία)
να διαγράφονται αυτόματα ?

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