Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Dim Ordner As New IO.DirectoryInfo(TextBox1.Text)
        Dim file As IO.FileInfo
        For Each file In Ordner.GetFiles("*.*", IO.SearchOption.AllDirectories)
            Try
                file.Delete()
            Catch ex As UnauthorizedAccessException
                IO.File.SetAttributes(file.FullName, IO.FileAttributes.Normal)
                file.Delete()
            End Try
            Directory.Delete(TextBox1.Text, True)
        Next
    End Sub