Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        For Each foundFile As String In My.Computer.FileSystem.GetFiles( _
        "D:\Test", FileIO.SearchOption.SearchTopLevelOnly)
            If DateDiff(DateInterval.Day, My.Computer.FileSystem.GetFileInfo( _
            foundFile).LastWriteTime, Now) > 200 Then
                My.Computer.FileSystem.DeleteFile(foundFile, _
                FileIO.UIOption.OnlyErrorDialogs, _
                FileIO.RecycleOption.SendToRecycleBin, _
                FileIO.UICancelOption.ThrowException)
            End If
        Next
    End Sub