Keep 10 most recent files

[sharky12345]

Can anyone show me how I can keep the most 10 recent files in a folder and delete the rest?

Additionally, I need this to only apply to files with 'Test' as part of the filename.

 

[Fennek]

Hallo,

try

Sub M_snb_dir()
iPath = "C:\temp\" '<<<< adjust 2x >>>>>>>
  sn = Split(CreateObject("wscript.shell").exec("cmd /c dir ""c:\temp\Test*.xls"" /b/s").stdout.readall, vbCrLf)
  For i = 10 to ubound(sn)
    kill iPath & sn(i)
  Next i
End Sub

regards

 

[Logit]

.
http://www.java2s.com/Code/VBA-Excel-Access-Word/File-Path/Displayingalistoffilesinadirectory.htm

http://spreadsheetpage.com/index.php/tip/identifying_the_newest_file_in_a_directory/

https://msdn.microsoft.com/en-us/vba/language-reference-vba/articles/filedatetime-function

http://www.excelfunctions.net/vba-filedatetime-function.html

https://stackoverflow.com/questions...fied-date-of-a-file-in-a-sharepoint-using-vba

 

[sharky12345]

Thanks to both!!