Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) _
      Handles Button1.Click
 
        Dim ofd As New OpenFileDialog
        ofd.Multiselect = True
        ofd.Filter = "Text Files(*.txt)|*.txt|All files (*.*)|*.*"
        ofd.FilterIndex = 2
        ofd.InitialDirectory = "C:\Temp\"
 
        If ofd.ShowDialog = Windows.Forms.DialogResult.OK Then
            For I As Integer = 0 To ofd.FileNames.Count - 1
                System.IO.File.Delete(ofd.FileName)
                MsgBox("Datei gelöscht")
            Next
        End If
 
    End Sub