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