Code bewirkt Ausnahmefehler, Excel-Absturz
04.12.2008 14:41:38
Peter
In meinem Code exportiere und importiere ich *.bas, *.cls und *.frm Dateien. Zuletzt will ich diese löschen. Dazu rufe ich untenstehenden Makro auf.
An dieser Stelle stürzt mein Excel regelmässig ab - und ich weiss nicht warum. Auf dem entsprechenden Verzeichnis habe ich unbeschränkte Rechte. Könnte es sein, dass die Dateien nicht zum löschen bereit sind, da sie erst Sekundenbruchteile vorher in ein Excel File importiert werden?
Danke für eine Antwort.
Gruss, Peter
Public Sub WegDamit()
Dim backupDir
backupDir = ThisWorkbook.Path
On Error Resume Next
Kill (backupDir & "\*.bas") ' oder "\*.xls" oder......
Kill (backupDir & "\*.cls") ' oder "\*.xls" oder......
Kill (backupDir & "\*.frm") ' oder "\*.xls" oder......
End Sub