'Löschen einer Datei
'-------------------
Public Sub FDelete(FileName As String)
Const ForReading = 1, ForWriting = 2
Dim fso, fs
 
    Set fs = CreateObject("Scripting.FileSystemObject")
    On Error Resume Next
    fs.DeleteFile (FileName)
End Sub