FileOperation Löschen, "pfad_zu_ordner_userdata", "", False, True

Private Const Löschen = &H3&
 
Public Function FileOperation(Mode As Long, Source As String, Dest As String, _
  Abfrage, Sichtbar) As Boolean
      Dim lenFileop As Long
      Dim foBuf() As Byte
      Dim fileop As SHFILEOPSTRUCT
      lenFileop = LenB(fileop)
      ReDim foBuf(1 To lenFileop)
      With fileop
        .hwnd = Me.hwnd
        .wFunc = Mode
        .Quelle = Source & vbNullChar & vbNullChar & vbNullChar
        .Ziel = Dest & vbNullChar & vbNullChar
        If Abfrage = False Then .DateiFlags = &H10&
        If Sichtbar = False Then .DateiFlags = .DateiFlags Or &H4&
        .DateiFlags = .DateiFlags Or &H40&
      End With
      Call CopyMemory(foBuf(1), fileop, lenFileop)
      Call CopyMemory(foBuf(19), foBuf(21), 12)
      FileOperation = SHFileOperation(foBuf(1)) = 0
End Function

FileOperation Löschen, pfad_zu_ordner_userdata, "", False, True