Thema Datum  Von Nutzer Rating
Antwort
Rot Backupanzahl mit VBA begrenzen!!!
 19.10.2006 14:25:01 Andy
NotSolved
22.10.2006 13:11:21 Rasta
NotSolved

Ansicht des Beitrags:
Von:
Andy		 Datum:
19.10.2006 14:25:01		 Views:
1870		 Rating:
     
Antwort:
  Ja
Thema:
Backupanzahl mit VBA begrenzen!!!
Hallo liebe Experten,

ich habe ein kleines Problem. Ich habe mir für eine wichtige Access Datenbank ein Backupsystem in VBA entwickelt. Welches wie folgt funktioniert:

[i]Private Sub Form_Load()

Dim DBPfad As String, BackupPfad As String, DBName As String, _
objFso As Scripting.FileSystemObject, Quelldatei As String, _
Zieldatei As String, JetztVar As String

Set objFso = CreateObject("Scripting.FileSystemObject")

Quelldatei = CurrentDb.Name
DBPfad = Left(Quelldatei, Len(Quelldatei) - Len(Dir(Quelldatei)))
BackupPfad = DBPfad & "\Backup\"
DBName = Mid(Quelldatei, InStrRev(Quelldatei, "\") + 1)
DBName = Left(DBName, InStr(DBName, ".") - 1)
On Error Resume Next
objFso.CreateFolder BackupPfad
On Error GoTo 0

JetztVar = Format(Now, "ddmmyyyy_hhnnss")

Zieldatei = BackupPfad & DBName & "_" & JetztVar & ".mdb"

objFso.CopyFile Quelldatei, Zieldatei, True

Set objFso = Nothing

End Sub[/i]

Das Problem bei dem Code ist, das mit bei jedem Öffnen der Datenbank ein Backup mit Datum und Uhrzeit erstellt wird. Dies ist auf Dauer sehr Speicherintensiv und der Backupordner muss regelmäßig ausgemistet werden.

Ict es möglich die maximale Backupanzahl aüf 5 Backups zu begrenzen, sodass beim 6 Öffnen der Datenbank die "älteste" Backupdatei gesucht und überschrieben wird mit der Neuen???

Wäre echt super wenn mir jemand weiterhelfen könnte!!!

Danke im Voraus und viele Grüße
Andy

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Backupanzahl mit VBA begrenzen!!!
 19.10.2006 14:25:01 Andy
NotSolved
22.10.2006 13:11:21 Rasta
NotSolved