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
Access Vba Kodu ile Klasör Ekleme ve Klasör Silme
Konuyu Okuyanlar: 1 Ziyaretçi