Deleting logs files which are one week old

[gravyboy]

This should give you a clue.... (note nobody flame me as it is just a quick knockup example)

Dim fsoMain As New FileSystemObject
Dim oFile As File
Dim oFileColl As Files
 
Private Sub Command1_Click()
 
    Set oFileColl = fsoMain.GetFolder("c:\winnt").Files
       
    For Each oFile In oFileColl
        If oFile.DateLastModified <> Date Then
            List1.AddItem oFile.Name
        End If
    Next oFile
 
End Sub

[andrewseah]

Hi guys,

Thanks for all your help.

I managed to do it and below is my script just
to share with all of you. Again, thanks a lot, appreciates much.

Dim objFSO, objTStream, s, fd, fd2, fd3

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set fd = objFSO.GetFolder("C:\dhl\DCS3.0\logs\")

If fd.files.count > 0 Then

For Each filesx in fd.files

Set fd2 = objFSO.GetFile("C:\dhl\DCS3.0\logs\" & filesx.name)

'Date - 1 day
NewDate = DateAdd("d", -1, Date)

s = fd2.DateCreated

'Date for the File Created
GetDay = DatePart("d", s)
GetMonth = DatePart("m", s)
GetYear = DatePart("yyyy", s)
CreatedDate = DateSerial(GetYear, GetMonth, GetDay)

If CreatedDate = NewDate Then

fd2.Delete
End If
Next

End If

[andrewseah]

Hie guys n gals,

Thanks for all the reply. Much appreciated. Below is my code just to share with all the gurus here. Kindly comment freely.

Once again, many thanks to all of you.

Rgds,
andrewseah

Dim objFSO, objTStream, s, fd, fd2, fd3

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set fd = objFSO.GetFolder("C:\dhl\DCS3.0\logs\")

If fd.files.count > 0 Then

For Each filesx in fd.files

Set fd2 = objFSO.GetFile("C:\dhl\DCS3.0\logs\" & filesx.name)

'Date - 1 day
NewDate = DateAdd("d", -1, Date)

s = fd2.DateCreated

'Date for the File Created
GetDay = DatePart("d", s)
GetMonth = DatePart("m", s)
GetYear = DatePart("yyyy", s)
CreatedDate = DateSerial(GetYear, GetMonth, GetDay)

If CreatedDate = NewDate Then

fd2.Delete
End If
Next

End If