AccessTr.neT
Access Vba Kodu ile Klasör Ekleme ve Klasör Silme - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Access Vba Kodu ile Klasör Ekleme ve Klasör Silme (/konu-access-vba-kodu-ile-klasor-ekleme-ve-klasor-silme.html)

Sayfalar: 1 2 3

Cvp: Access Vba Kodu ile Klasör Ekleme ve Klasör Silme - berduş - 20/12/2019

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

Cvp: Access Vba Kodu ile Klasör Ekleme ve Klasör Silme - derzulya - 20/12/2019

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.

Cvp: Access Vba Kodu ile Klasör Ekleme ve Klasör Silme - berduş - 20/12/2019 

    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


Cvp: Access Vba Kodu ile Klasör Ekleme ve Klasör Silme - ozanakkaya - 20/12/2019

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.

Cvp: Access Vba Kodu ile Klasör Ekleme ve Klasör Silme - derzulya - 20/12/2019

(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.