20/12/2019, 12:43
20/12/2019, 12:48
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.
20/12/2019, 13:14
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
Loop20/12/2019, 13:16
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
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.
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, 16:28
(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.