AccessTr.neT

Tam Versiyon: Access Vba Kodu ile Klasör Ekleme ve Klasör Silme
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Sayfalar: 1 2 3
dıştakinden kastınızı anlayamadım ama herhangi bir dosyayı silmek için;
Çift tırnaklar içinde dosyanın tam yolunu ve adını girmelisi veya değişkenlerle bu bilgiyi vermelisiniz.

Dim filesys
Set filesys = CreateObject("Scripting.FileSystemObject")
filesys.deletefile "c:\Klasor\DosyaAdi.xls"
teşekkur ederim exceli de sildim
Kill "c:\Klasor\DosyaAdi.xls" 
şeklinde de kullanabilirsiniz.
Konu hortlatmak olacak ama, eklediğimiz buton ile belirli bir klasördeki örneğin 3 ay ve öncesi oluşturulan dosyaları nasıl sildiririz.
    Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFile(dosyaAdresiveAdi)
msgbox f.DateCreated
buradaki kod dosyanın konum ve adını girdiğinizde dosyanın oluşturulma tarihini verir
f.DateCreated ile aldığınız tarihe göe silme gerçekleştirilebilir
Kod:
Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.GetFile(C:\Users\xxx\Desktop\xxx\xxx)
    MsgBox f.DateCreated


bu şekilde değil mi ? hata alıyorum bu şekilde.
Sayfalar: 1 2 3