Belirli bir günden önceki dosyaları silme metodu.
Aşağıdaki metod ile "folderPath" klasöründe beforeDayCount parametresinde belirtilen gün sayısından daha önce oluşturulmuş dosyalar silinir.
Public Shared Sub DeleteFiles(folderPath As String, Optional beforeDayCount As Integer = 30)
If (folderPath.Trim() <> "" And beforeDayCount <> 0) AndAlso System.IO.Directory.Exists(folderPath) Then
Dim folderInfo As New System.IO.DirectoryInfo(folderPath)
Dim fileList As System.IO.FileInfo() = folderInfo.GetFiles()
For Each fi As System.IO.FileInfo In fileList
If fi.LastWriteTime <= DateAdd(DateInterval.Day, IIf(beforeDayCount < 0, beforeDayCount, -1 * beforeDayCount), Date.Now) Then
Try
System.IO.File.Delete(fi.FullName)
Catch ex As Exception
End Try
End If
Next
End If
End Sub
