mein Problem:
Nach Öffnen einer Datei soll diese, sofern nicht in "Application.DefaultFilePath" geöffnet, automatisch in diesem Verzeichnis gespeichert werden. Das funktioniert. Danach möchte ich jedoch die urspr. Datei und das entspr. Verzeichnis löschen.
Hierzu erscheint bei "Kill" dann eine Fehlermeldung und die Prozedur wird abgebrochen.
Was muss ich berichtigen?
Vielen Dank vorab!
MfG Klaus
Sub SpUnterMitVerzLoeschen()
Dim wbur As Workbook
Dim zPfad As String
Dim IstPfad As String
Dim Dateiname As String
Set wbur = ActiveWorkbook
zPfad = Application.DefaultFilePath + "\PrfErg"
If Dir(zPfad, vbDirectory) = "" Then MkDir zPfad
Dateiname = zPfad + "PrfErgebnis2009.xls"
IstPfad = wbur.Path
ActiveWorkbook.SaveAs Dateiname
Application.DisplayAlerts = False
wbur.Close SaveChanges:=False ' erforderlich?
Kill IstPfad ' hier kommt Fehlermeldung
RmDir IstPfad
Application.DisplayAlerts = True
End Sub