Delete Old Files (dotNet)

Posted on March 2nd, 2007 in Coding, Work by abdallah

Umm, I needed some way to clean up the files on my Win2K* servers. So here’s a quickie in VB.NET, hope it helps.

[ vb Code ]
  1.  
  2. ‘ Written by Abdallah Deeb on 02-Mar-2007
  3. ‘ Use at your own risk, I am not liable for any damages or lost files if you use this code.
  4. ‘
  5. Imports System
  6. Imports System.IO
  7. Module DeleteOld
  8.  
  9.     Sub Main()
  10.         Dim sr As StreamReader
  11.         Dim folderName As String
  12.         Dim files As System.Collections.ObjectModel.ReadOnlyCollection(Of String)
  13.         Dim fileName As String
  14.         Dim fInfo As System.IO.FileInfo
  15.         Dim fCreation As Date
  16.         Dim cfgLine As String()
  17.         Dim numberOfDays As Integer
  18.  
  19.         sr = New StreamReader("c:\DeleteOld.cfg")
  20.         Do
  21.             cfgLine = Split(sr.ReadLine(), "|", 2)
  22.             folderName = cfgLine(0)
  23.             numberOfDays = Int(cfgLine(1))
  24.             files = My.Computer.FileSystem.GetFiles(folderName, _
  25.                         FileIO.SearchOption.SearchAllSubDirectories)
  26.             For Each fileName In files
  27.                 fInfo = My.Computer.FileSystem.GetFileInfo(fileName)
  28.                 fCreation = fInfo.CreationTime
  29.                 If DateDiff(DateInterval.Day, fCreation, Now()) > numberOfDays Then
  30.                     My.Computer.FileSystem.DeleteFile(fileName)
  31.                 End If
  32.             Next
  33.  
  34.         Loop Until folderName Is Nothing
  35.         sr.Close()
  36.  
  37.     End Sub
  38.  
  39. End Module

Post a comment

You must be logged in to post a comment.