Binaryworld - How to delete files older than N days from a specified path with speci ... [ VB.net -> Files & Folder ]

Some time I need to write a clenup routine which checks fol old files and delete if older than a specified days. Here is a code snippet which does the same thing.

Click here to copy the following block

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  '//delete all *.txt files from c:\temp older than 5 days
  DeleteOldFiles("C:\temp", "*.txt", 5)
End Sub

'//This will delete files with specified pattern which are older than specified days
Public Function DeleteOldFiles(ByVal sPath As String, Optional ByVal sPattern As String = "*.*", Optional ByVal OlderThanDays As Integer = 1) As Integer

  Dim myfolder As System.IO.Directory
  Dim myfile As String
  Dim fi As System.IO.FileInfo
  Dim files() As String = myfolder.GetFiles(sPath, sPattern)
  Try

    For Each myfile In files
      fi = New System.IO.FileInfo(myfile)
      '//write full path of this file
      Debug.Write(fi.FullName)
      If fi.CreationTime < Today.AddDays(0 - OlderThanDays) Then
        fi.Delete()
      End If
    Next
  Catch ex As Exception
    Throw (New Exception(ex.Message))
  End Try
End Function