löschen einer Datei
21.06.2006 22:09:53
Matze
habe ein kleines Problemchen und komme nicht selber auf die Lösung. Vielleicht hat jemand von Euch eine Idee.
Mit dem Modul möchte ich regelmäßige Backups anlegen. Es funktioniert bei der schrittweisen Abarbeitung perfekt, lass ich das Modul normal laufen, löscht er die Excel-Datei nicht. Warum nicht? Vermutlich ist der Packer noch am arbeiten, aber wie kann ich das Ende des Packens abfragen?
Danke im voraus für Eure Hinweise.
mfg Matze
Sub Backup_zippen()
Dim sDatei As String
Dim sDateineu As String
Dim sPfad As String
Dim Datum As Date
On Error GoTo ErrorHandler ' Fehlerbehandlung aktivieren
sPfad = Application.ActiveWorkbook.Path & "\Sicherungen\"
' Wechselt das aktuelle Laufwerk.
ChDrive sPfad
' Wechselt das aktuelle Verzeichnis oder den aktuellen Ordner.
ChDir sPfad
' aktuelles Datum
Datum = Format(Now, "m/d/yyyy")
' aktueller Dateiname
sDatei = ActiveWorkbook.Name
' neuer Dateiname zusammengesetzt aus alten Namen und aktuellem Datum
sDateineu = Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 4) & Datum & ".zip"
' Dateikopie speichern
ActiveWorkbook.SaveCopyAs sPfad & sDatei
Shell sPfad & "zip.exe " & sDateineu & " " & sDatei
' damit er noch 2s zeit hat zum fertig werden
Application.Wait (Now + TimeValue("0:00:02"))
Kill sPfad & sDatei ' loescht ohne Rueckfrage!
ErrorHandler: ' Fehlerbehandlungsroutine.
Select Case Err.Number ' Fehlernummer auswerten.
Case 53
MsgBox "Die gewünschte Datei wurde nicht gefunden!"
Case Else
' Andere Fälle hier bearbeiten...
End Select
End Sub