Access Vba Kodu ile Klasör Ekleme ve Klasör Silme

1 2 3
20/12/2019, 12:43

berduş

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

derzulya

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

berduş

    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
20/12/2019, 13:16

ozanakkaya

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, 16:28

derzulya

(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.
1 2 3