VBA: speichernlöschen(von Leo) Nr.2
07.08.2005 23:23:50
Leo)
ich habe folgenden Code von Leo und war schon ganz Happy.
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Date > DateValue("06.08.2005") Then
If Dir("C:\sichern", 16) = "" Then MkDir "C:\sichern"
ThisWorkbook.SaveAs Filename:="C:\sichern\sichernlöschenb.xls"
ThisWorkbook.Saved = True
ThisWorkbook.ChangeFileAccess xlReadOnly
'die nächste Zeile sollte die Datei im Ursprungsverzeichnis löschen
'Kill ThisWorkbook.FullName
End If
End Sub
Dummerweise habe ich erst jetzt, nachdem ich "Kill Thisworkbook.FullName" aktiviert habe, bemerkt, dass die in "sichern" abgelegte Datei anschließend gelöscht wird. Eigentlich sollte die Datei in ihrem bisherigen Verzeichnis gelöscht werden. Umdrehen kann ich die Prozedur ja nicht, da sonst die Datei erst gelöscht wird und dann nicht mehr zum sichern zur Verfügung steht. Was kann ich tun?
Gruß
HansH