Maximal 3 Sicherungskopien zulassen
22.03.2006 06:50:55
Konni
beim Öffnen meiner Mappe wird automatisch eine Sicherungskopie hinterlegt. Je nachdem wie oft die Mappe geöffnet wird, müllt sich dementsprechend der Dateiordner zu. Ich möchte gerne, dass, wenn die 3. Sicherung gespeichert wird, die 1. Sicherung gelöscht wird. Es stehen dann immer nur 2 Sicherungen letztendlich zur Verfügung.
Vielen Dank vorab und viele Grüße aus Karlsruhe
Konni
Nachstehnd der zu ergänzende Code:
Private Sub Workbook_Open()
Dim StDatei As String
Dim StPhad As String
StDatei = ThisWorkbook.Name ' Dateiname
'StPhad = "Q:/Oberbau(Fr)/Sicherungen Termine 2006" 'gezielter Speicherpfad
StPhad = ThisWorkbook.Path ' automatischer Pfad
'überprüfen ob Datei schon vorhanden, nur notwendig falls Datei in der gleichen Minute nochmal geöffnet wird
Dim Fso As Object
Set Fso = CreateObject("Scripting.FileSystemObject")
If Fso.FileExists(StPhad & "\" & Format(Now, "DD.MM.YY") & " - " & Format(Now, "hh-mm") & " - " & _
Application.UserName & _
" - " & StDatei) Then
Kill StPhad & "\" & Format(Now, "DD.MM.YY") & " - " & Format(Now, "hh-mm") & " - " & _
Application.UserName & " - " & StDatei
End If
ActiveWorkbook.SaveCopyAs Filename:=StPhad & "\" & Format(Now, "DD.MM.YY") & " - " & Format(Now, "hh-mm") & " - " & _
Application.UserName & _
" - " & StDatei 'Speichert in den angegebenen Pfad
End Sub