Anzahl der Sicherungsdateien begrenzen

Forumthread: Anzahl der Sicherungsdateien begrenzen

08.02.2008 15:48:52

Claudia

Hallo liebe Helfer/innen,
ich habe eine Datei welche beim Schließen zusätzlich in einem Verzeichnis eine bak-Datei speichert.


Sub KopieSpeichern()
Const Verzeichnis = "D:\Backup"
With ActiveWorkbook
.SaveCopyAs _
Filename:=Verzeichnis & "\" & _
Left(.Name, Len(.Name) - 4) & "_" & Format(Now, "DD MM YY hh mm") & ".bak"
End With
End Sub

Soweit so gut, funzt prima.
ABER: Wenn die Datei am Tag 20 mal und mehr gespeichert wird, haut mir das irgendwann die Platte voll. Wie müsste Der Code angepasst werden, das im Sicherungsordner nur maximal 10 bak-Dateien gespeichert werden und bei der elften speicherung die älteste Datei gelöscht wird und somit immer nur maximal 10 Dateien sich in D:\Backup befinden.
Wer kann mir bitte helfen.
Danke Gruß Claudia

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Anzahl der Sicherungsdateien begrenzen

08.02.2008 19:00:11

Chris

Servus Claudia,
mit den beiden Makros sollte das gehen:
Allerdings habe ich mir erlaubt das Abspeichern des Datums im Format DD.MM.YYYY vorzunehmen, da das wesentlich weniger Programmierarbeit ist. Ich hoffe, das macht nichts aus. Die Pfade musst du natürlich noch anpassen.


Sub KopieSpeichern()
Const Verzeichnis = "C:\Documents and Settings\stadter\Desktop"
With ActiveWorkbook
.SaveCopyAs _
Filename:=Verzeichnis & "\" & _
Left(.Name, Len(.Name) - 4) & "_" & Format(Now, "DD.MM.YYYY hh mm") & ".bak"
End With
Call teste
End Sub


Sub teste()
Dim DateiName As String, Dateipfad As String, str1 As String, str2 As String, str3 As String,  _
str4 As String, str5 As String, str6 As String
Dim strDatum As String, strStunde As String, strMinute As String, Löschdatei As String
Dim Dateien As Integer, zähler As Double
zähler = 0
With Application.FileSearch
On Error Resume Next
.NewSearch
.LookIn = "C:\Documents and Settings\stadter\Desktop"
.Filename = Left(ThisWorkbook.Name, Len(ThisWorkbook.Name) - 4) & "*.bak"
If .Execute() > 0 Then
For Dateien = 1 To .FoundFiles.Count
zähler = zähler + 1
DateiName = Dir(.FoundFiles(Dateien))
Dateipfad = .FoundFiles(Dateien)
str1 = Right(DateiName, 20) ' ab Datum
str2 = Left(str1, 10) ' Datum
str3 = Right(str1, 9) ' Rest hinter Datum
str4 = Left(str3, 2) ' hh
If Left(str4, 1) = 0 Then
str4 = Right(str3, 1)
End if
str5 = Right(str3, 6) ' Rest hinter hh
str6 = Left(str5, 2) ' mm
If Left(str6, 1) = 0 Then
str6 = Right(str5, 1) ' falls mm  1 Then
Select Case str2
Case Is  10 Then
Kill "C:\Documents and Settings\stadter\Desktop\" & Left(ThisWorkbook.Name, Len( _
ThisWorkbook.Name) - 4) & "_" & strDatum & " " & strStunde & " " & strMinute & ".bak"
End If
End Sub

Das makro teste wird beim Speichern aus dem Backup-makro aufgerufen.
Gruß
Chris

AW: Anzahl der Sicherungsdateien begrenzen

08.02.2008 19:17:00

Claudia

Hallo Chris,
mit dem Datum kein Problem, die Pfade habe ich angepasst. Funzt super gut. Genau so hatte ich mir das vorgestellt.
Danke undGruß
Claudia

AW: Anzahl der Sicherungsdateien begrenzen

10.02.2008 22:07:30

Peter

Bekommt der Peter liebloses Essen,
hat er den Valentinstag vergessen.
Peter Blenk

Beliebteste Forumthreads (12 Monate)

Anzahl der Sicherungsdateien begrenzen

Forumthread: Anzahl der Sicherungsdateien begrenzen

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread