Excellent VBA to delete old files SOLVED!!

[Sven62]

Here you go! You can thank some dude over at Ozgrid. Was posted in Jan 2012. Just replace the path and how many days old the files you want to delete. It will delete ALL files in that folder that are too old.

On a side note... can someone please tell me what that little circle is before "FSO" in the second code? I've never seen those before.

Sub DeleteOldFiles() 
    Set FSO = CreateObject("Scripting.FileSystemObject") 
    For Each fcount In FSO.GetFolder(ThisWorkbook.Path & "\Backups\ ").Files 
        If DateDiff("d", fcount.DateCreated, Now()) >7 Then 
            Kill fcount 
        End If 
    Next fcount 
End Sub

AND..

Sub DelOldFiles() 
     
     
     ''Clear out all files over 7 days old from Dir_Path folder.
     '
    Dir_Path = "C:\Folder\SubFolder\" 
    iMaxAge = 7 ' Set the number of days
     
    Set oFSO = CreateObject("Scripting.FileSystemObject") 
    If oFSO.FolderExists(Dir_Path) Then 'Check that the folder exists
        For Each oFile In oFSO.GetFolder(Dir_Path).Files 
            If DateDiff("d", oFile.DateLastModified, Now) > iMaxAge Then 'Look at each file to check if it is older than 7 days
                oFile.Delete 
            End If 
        Next 
    End If 

    End Sub

 

[patel45]

FSO is a variable name, you can rename it john

Set john = CreateObject("Scripting.FileSystemObject") 
For Each fcount In john.GetFolder(ThisWorkbook.Path & "\Backups\ ").Files

 

[Sven62]

FSO is a variable name, you can rename it john

Set john = CreateObject("Scripting.FileSystemObject") 
For Each fcount In john.GetFolder(ThisWorkbook.Path & "\Backups\ ").Files

No.... what is the little circle? In the second code example.

 

[Jim885]

This is interesting, but what is the difference between the two codes?

 

[Sven62]

This is interesting, but what is the difference between the two codes?

Well the first one is simpler.. for one.

 

[tusharm]

The letter o? as in m n o. The name of the variable is oh-EF-ES-OH.

Here you go! You can thank some dude over at Ozgrid. Was posted in Jan 2012. Just replace the path and how many days old the files you want to delete. It will delete ALL files in that folder that are too old.

On a side note... can someone please tell me what that little circle is before "FSO" in the second code? I've never seen those before.

Sub DeleteOldFiles() 
    Set FSO = CreateObject("Scripting.FileSystemObject") 
    For Each fcount In FSO.GetFolder(ThisWorkbook.Path & "\Backups\ ").Files 
        If DateDiff("d", fcount.DateCreated, Now()) >7 Then 
            Kill fcount 
        End If 
    Next fcount 
End Sub

AND..

Sub DelOldFiles() 
     
     
     ''Clear out all files over 7 days old from Dir_Path folder.
     '
    Dir_Path = "C:\Folder\SubFolder\" 
    iMaxAge = 7 ' Set the number of days
     
    Set oFSO = CreateObject("Scripting.FileSystemObject") 
    If oFSO.FolderExists(Dir_Path) Then 'Check that the folder exists
        For Each oFile In oFSO.GetFolder(Dir_Path).Files 
            If DateDiff("d", oFile.DateLastModified, Now) > iMaxAge Then 'Look at each file to check if it is older than 7 days
                oFile.Delete 
            End If 
        Next 
    End If 

    End Sub

 

[MARK858]

This is interesting, but what is the difference between the two codes?

One goes from the date last modified, the other from the date created.
One deletes the file (sends to recycle bin), the other kills the file (bypasses the recycle bin)
One uses the current workbook path and the other specifies a path.

No.... what is the little circle? In the second code example.

The small o is normally just a hint to the code writer to remind them that they are dealing with an object. As Patel45 stated you can call it what you like. So FSO, oFSO and john(in Patel45's code) are all the same.

 

[Sven62]

The letter o? as in m n o. The name of the variable is oh-EF-ES-OH.

THAT.... did not look like an OH on my screen.....<slaps his="" head=""> <slaps his="" head=""> [slaps his head]</slaps></slaps>

 

[tusharm]

THAT.... did not look like an OH on my screen.....<slaps his="" head=""> <slaps his="" head=""> [slaps his head]</slaps></slaps>

 

[Sven62]

OK guys... after all this time the script has been running fine.... until... Bill Gates broke it. Only on SOME of our computers. I get a "Object not recognized in Module 10" or words to that effect. I am assuming those computers cannot deal with the

[COLOR=#333333][I]CreateObject("Scripting.FileSystemObject")[/I][/COLOR]

. Any solutions?

Full code is

[COLOR=#333333][I]Sub DeleteOldFiles() [/I][/COLOR]    
Set FSO = CreateObject("Scripting.FileSystemObject") 
    For Each fcount In FSO.GetFolder(ThisWorkbook.Path & "\Backups\ ").Files 
        If DateDiff("d", fcount.DateCreated, Now()) >7 Then 
            Kill fcount 
        End If 
    Next fcount  [COLOR=#333333][I]End Sub[/I][/COLOR]

Office 2010 on all computers.