Private Const FO_DELETE = &H3
Private Const FO_COPY = &H2
Private Const FO_MOVE = &H1
Private Const FO_RENAME = &H4
Private Const FOF_ALLOWUNDO = &H40
Private Const FOF_NOCONFIRMMKDIR = &H200      
Private Type SHFILEOPSTRUCT
    hwnd As Long
    wFunc As Long
    pFrom As String
    pTo As String
    fFlags As Integer
    fAborted As Boolean
    hNameMaps As Long
    sProgress As String
End Type
Private Declare Function SHFileOperation Lib "shell32.dll" Alias _
  "SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As Long
Public Function DeleteFiles(ByVal lOwnerHWND As Long, ByVal sFiles As String, _
Optional ByVal bAllowRecycle As Boolean = True) As Boolean
On Error GoTo Er
Dim DeleteFileDat As SHFILEOPSTRUCT, Pos%
If InStr(1, sFiles, "|") <> 0 Then
    Do
        Pos = InStr(1, sFiles, "|")
        If Pos <> 0 Then
            sFiles = Left$(sFiles, Pos - 1) + Chr(0) + Mid$(sFiles, Pos + 1)
        Else
            Exit Do
        End If
    Loop
End If
sFiles = sFiles + Chr(0) + Chr(0)
DeleteFileDat.pFrom = sFiles
DeleteFileDat.hwnd = lOwnerHWND
DeleteFileDat.wFunc = FO_DELETE
If bAllowRecycle = True Then
    DeleteFileDat.fFlags = FOF_ALLOWUNDO
End If
DeleteFileDat.fFlags = FOF_NOCONFIRMATION Or FOF_NOERRORUI
DeleteFiles = SHFileOperation(DeleteFileDat) = 0
Exit Function
Er:
End Function

mit freundlichen Grüßen
Sven