excel vba - Delete all files in a folder that weren't saved today in VBA -

i'm trying delete files in folder have not been saved today.

the folder have .csv , .txt file types, made code delete types. there way delete file type?

this code have right now:

sub delete()  dim myfolder string dim myfiletxt string dim myfilecsv string  myfolder = "c:\users\desktop\pdf_converter_test" myfiletxt = dir(myfolder & "\*.txt") myfilecsv = dir(myfolder & "\*.csv")  while filedatetime(myfolder & myfiletxt) <> date      on error resume next        if filedatetime(myfolder & myfiletxt) <> date            kill myfolder & myfiletxt            myfiletxt = dir        end if loop  while filedatetime(myfolder & mycsv) <> date      on error resume next        if filedatetime(myfolder & myfilecsv) <> date            kill myfolder & myfilecsv            myfilecsv = dir        end if     loop  end sub 

the loop seems go on forever, there problem while condition. doesn't delete files want to.

any appreciated. thank you.

the simplest way achieve want. delete file type has not been saved today i.e it's modified date not same today.

sub sample()     dim spath string     dim objfso object, objfolder object         dim objfile object       '~~> change needed     spath = "c:\users\siddharth rout\desktop\test\"      set objfso = createobject("scripting.filesystemobject")     set objfolder = objfso.getfolder(spath)      each objfile in objfolder.files         if format(objfile.datelastmodified, "dd-mm-yyyy") <> format(date, "dd-mm-yyyy")             kill objfile         end if     next objfile end sub