ممكن طلب برمجة كود صغيره جداً

يااااه لقد ذكرتي بأيام vb6 محبوبتي القديمة ... على العموم الموضوع بسيط جدا

بامكانك وضع الكود الذي يأتي بجميع الملفات في المجلد الذي تستخدمه للتخزين ثم تحسب الفرق بين تاريخ انشاء الملف وتاريخ اليوم . اذا كان الفرق 3 أيام أو أكثر احذف الملف

أنصحك أخي أولا بالبحث والقرأة عن FileSystemObject فهو أفضل طريقة للتعامل مع الملفات في vb6

الكود التالي مثال لكيفية الحصول على جميع الملفات في مجلد معين ... طبعا الكود يمكن تطوير أدائه ولكنه على الأقل يعمل :)

Dim fs, f, f1, filelist()
Dim i As Integer, j As Integer
i = 0
ReDim filelist(0)
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(App.Path)
For Each f1 In f.Files
i = i + 1
ReDim Preserve filelist(i)
Set filelist(i) = f1
Next

ثم تستخدم هذه الملفات وتقارن تاريخ الانشاء وذلك بعد عمل object من كل ملف

 Dim f
Set f = fs.GetFile(filespec)

ثم استخدم الخاصية DateCreated من الObject الذي أنشأته من الملف وفي مثالنا اسمه f

وقارن النتيجة مع تاريخ اليوم باستخدام الدالة DateDiff

الله يعطيك العافية على المجهود والمساعده ..

راح أحاول اطبق الطريقة وأرد عليك ..

مشكور مقدماً ..

تفضل هذا مثال لمبتغاك ... أتمنى أن يفي بالغرض

تحياتي

Delete files.rar