Using frmDeletefiles As New DeleteFileDialog
      With frmDeletefiles
 
         .Folder = "C:\daten"
         .Filter = "*.txt"
 
         If .ShowDialog = Windows.Forms.DialogResult.OK Then
 
            Dim file As String = ""
 
            Try
               Dim ro As Microsoft.VisualBasic.FileIO.RecycleOption = _
                            FileIO.RecycleOption.SendToRecycleBin
 
               Dim id As New System.Security.Principal.WindowsPrincipal _
                   (System.Security.Principal.WindowsIdentity.GetCurrent())
 
               If id.IsInRole _
                 (System.Security.Principal.WindowsBuiltInRole.Administrator) _
                 Then
                  Dim res As MsgBoxResult = MsgBox _
                   ("Gewählte Dateien endgültig löschen ?", _
                   MsgBoxStyle.YesNoCancel)
                  If res = MsgBoxResult.Cancel Then Exit Sub
                  If res = MsgBoxResult.Yes Then _
                     ro = FileIO.RecycleOption.DeletePermanently
               End If
 
               For Each file In .Filenames
                   My.Computer.FileSystem.DeleteFile _
                     (file, FileIO.UIOption.OnlyErrorDialogs, ro)
               Next file
            Catch ex As Exception
                MsgBox("Abbruch! " & vbCrLf & _
                       IO.Path.GetFileName(file) & vbCrLf & ex.Message)
            End Try
         End If 'Showdialog
      End With
   End Using