Delete old files in a specific folder

**forfiett** · 08-26-2014, 02:52 PM

Good evening,

While searching on google for a code that will delte all files that are old more than xx days in a specific folder, I found out bellow code:

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

but unforunatelly is not working for me.
It pups up a error saying: Dir_Path = "C:\Folder\SubFolder\" --> VARIABLE NOT DEFINED.

Do you have any Idea how to handle it?

Best regards,
forfiett
I get a error

**mehmetcik** · 08-26-2014, 05:42 PM

The macro is looking for the folder called "Subfolder" in the Folder "Folder" in your C Drive.

Does it exist?

**forfiett** · 08-27-2014, 01:14 AM

Good day,

Yes it exist.

Best regards,
forfiett

**HaHoBe** · 08-27-2014, 01:22 AM

Hi, forfiett,

what about using

    Dir_Path = "C:\Folder\SubFolder"

without the last backslash?

Ciao,
Holger

**forfiett** · 08-27-2014, 01:26 AM

Dear Holger,

Have tried also this option without result.
Maybe do you have any other similar code?

Best regards,
forfiett

**HaHoBe** · 08-27-2014, 12:15 PM

Hi, forfiett,

if you have fuill access to the folder and the files are of file extension xls maybe try it like this:

Sub EF1033426()

Dim fso As Object
Dim fso_Folder As Object
Dim fso_FILE As Object
Dim strFilePath As String
Dim strFileExt As String

Const clngMAX_AGE As Long = 7

strFilePath = "C:\Folder\SubFolder"
strFileExt = "xl"

Set fso = CreateObject("Scripting.FileSystemObject")
Set fso_Folder = fso.GetFolder(strFilePath)

If fso_Folder.Files.Count > 0 Then
  For Each fso_FILE In fso_Folder.Files
    If fso.GetExtensionName(fso_FILE.Name) Like strFileExt & "*" Then
      If CLng(Date) - CLng(FileDateTime(fso_FILE)) >= clngMAX_AGE Then
        fso_FILE.Delete
      End If
    End If
  Next fso_FILE
Else
  MsgBox "No Files Found at " & strFilePath
End If

Set fso_Folder = Nothing
Set fso = Nothing

End Sub

Please mind that all files of the extension xl* should be deleted in the givern directory if the are older than seven days.

Ciao,
Holger

**forfiett** · 09-26-2014, 02:37 AM

Good day,

I will try it. Thanks.

Best regards,
forfiett

Delete old files in a specific folder

LinkBack

Thread Tools

Rate This Thread

Display

Hybrid View

Delete old files in a specific folder

Re: Delete old files in a specific folder

Re: Delete old files in a specific folder

Re: Delete old files in a specific folder

Re: Delete old files in a specific folder

Re: Delete old files in a specific folder

Re: Delete old files in a specific folder

Thread Information

Users Browsing this Thread

Similar Threads

Unzip all files in a specific folder and move CSV files to a different specificed folder

Extract specific column data from specific sheet from multiple files in a folder

[SOLVED] how can I specific a folder with wildcard criteria and excel will import all the correct files in that folder?

how can I specific a folder with wildcard criteria and excel will import all the correct files in that folder?

how can I specific a folder with wildcard criteria and excel will import all the correct files in that folder?

Bookmarks

Bookmarks

Posting Permissions