Set f = fs.GetFile("C:\Users\xxx\Desktop\xxx\xxx.xls") gibi çift tırnak içinde ve dosya uzantısı da dahil

yok ben tek bir dosyadan bahsetmiyorum. bir klasör içindeki farklı isimlerdeki dosyaların oluşturulma tarihlerine göre örneğin 90 gün öncesini silsin gibi.

    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

Merhaba, ekli uygulama yedekleme için oluşturulmuş uygulama idi. Form ve tablolarda değişiklik yapmadım, sadece 90 gün öncesi dosyaları silmesi için kod ekledim.

frm_eskiyedekler isimli formun Vba sayfasındaki 

sPath = "C:\YEDEK\"

kodunu kendi dizininize göre değiştirin,
Formu açtığınızda dizindeki 90 gün ve öncesi kayıtları listeler, sil butonuna basarsanız bu dosyaları siler.

(20/12/2019, 13:16)ozanakkaya yazdı: Merhaba, ekli uygulama yedekleme için oluşturulmuş uygulama idi. Form ve tablolarda değişiklik yapmadım, sadece 90 gün öncesi dosyaları silmesi için kod ekledim.

frm_eskiyedekler isimli formun Vba sayfasındaki 

sPath = "C:\YEDEK\"

kodunu kendi dizininize göre değiştirin,
Formu açtığınızda dizindeki 90 gün ve öncesi kayıtları listeler, sil butonuna basarsanız bu dosyaları siler.

dosya iniyor ama arşiv hatalı gibi bir hata veriyor.sanırım benim pc ile alaklı bi durum.