AW: Makro löschen
04.11.2003 14:31:54
Dan
Hallo Goli,
ich denke, dass es nicht geht, dass eine XLDatei sich selber loscht - Fehler:Zugang verweigert. :
Option Explicit
Private Sub Workbook_BeforeClose(Cancel As Boolean) '
If (DateiLoschen(Application.Workbooks(ThisWorkbook.Name)) = False) Then _
MsgBox "Datei ist nicht geloscht worden."
End Sub
Private Function DateiLoschen(ByVal Wrb As Workbook) As Boolean
On Error GoTo ErrH
DateiLoschen = False
Dim Fso As FileSystemObject, Fld As Folder, Fl As File
Set Fso = New Scripting.FileSystemObject
If (Wrb.Path <> "") Then
Set Fld = Fso.GetFolder(Wrb.Path)
Else
Wrb.Save
Set Fld = Fso.GetFolder(Wrb.Path)
End If
Set Fl = Fld.Files(Wrb.Name)
Fl.Delete
DateiLoschen = True
Exit Function
ErrH:
If (Err.Number = 70) Then
MsgBox "Laufzeitsfehler beim Versuch die Datei " & Wrb.Name & " zu loschen." & vbCrLf & _
"Fehler Nummer : " & Err.Number & " ,Beschreibung : " & Err.Description
Else
MsgBox "Fehler Nummer : " & Err.Number & " ,Beschreibung : " & Err.Description
End If
End Function
-- Gruss Dich, Dan dusek@cb.vakjc.cz