Friday, August 2, 2013

Delete files in directory older than 7 days

Dim directory As New IO.DirectoryInfo("C:\Documents and Settings\CLIENT4\My Documents\log\")
        For Each file As IO.FileInfo In directory.GetFiles
            If (Now - file.CreationTime).Days < 7 Then file.Delete()
        Next