Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
948to952
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
948to952
948to952
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Anzahl der Sicherungsdateien begrenzen

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

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

Betreff
Datum
Anwender
Anzeige
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

Anzeige
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)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige