Dim fs, f, s

    Dim strFileName As String

Dim strFolder As String: strFolder = "Klasör Adresi" '   "C:\Users\xxx\Desktop\xxx\" gibi dosya adı olmadan

Dim strFileSpec As String: strFileSpec = strFolder & "*.*"

strFileName = Dir(strFileSpec)

    Set fs = CreateObject("Scripting.FileSystemObject")



Do While Len(strFileName) > 0

    Debug.Print strFileName

    Set f = fs.GetFile(strFolder & strFileName)

    If f.DateCreated < Date - 90 Then Kill strFolder & strFileName 'f.deletefile

     strFileName = Dir

Loop