<System.Runtime.InteropServices.DllImport("shell32.dll")> _
    Public Shared Function SHFileOperation(ByRef lpFileOp As SHFILEOPSTRUCT) As _
    Integer
    End Function
 
    Public Structure SHFILEOPSTRUCT
        Public hwnd As Integer
        Public wFunc As Integer
        Public pFrom As String
        Public pTo As String
        Public fFlags As Integer
        Public fAnyOperationsAborted As Integer
        Public hNameMappings As Integer
        Public lpszProgressTitle As String
    End Structure
 
    Private Const FOF_ALLOWUNDO = &H40
    Private Const FOF_NOCONFIRMATION = &H10
    Private Const FO_DELETE = &H3
    Private Const FO_COPY = &H2
 
    Public Function ShellDelete(ByVal fil As String, Optional ByVal NoConfirm _
      As Boolean = False) As Boolean
 
        Dim SFO As SHFILEOPSTRUCT
        Dim lRet As Integer
        Dim lflags As Integer
 
        lflags = FOF_ALLOWUNDO
        If NoConfirm Then lflags = lflags + FOF_NOCONFIRMATION
        With SFO
            .wFunc = FO_DELETE
            .pFrom = fil
            .fFlags = lflags
        End With
 
        lRet = SHFileOperation(SFO)
        Return lRet = 0
 
    End Function

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist