Dim tempfldr
Set tempfldr = CreateObject("Scripting.FileSystemObject")
If Check1.Value = 1 Then
tempfldr.deletefolder "C:windowstemp*.tmp"
On Error Resume Next
Kill "C:windowstemp*.tmp"
On Error Resume Next
ElseIf Check1.Value = 0 Then
MsgBox "عليك تفعيل الخيار لحذف الملفات قبل النقر على الزر"
End If
هذا الكود ينتهي بخطا عند النقر على الزر في حال عدم وجود ملفات للحذف فكيف اصححه ؟
Do as I say, not as I do
We are Anonymous. We are Legion. We don't forgive. We don't forget
صديقي العزيز (f)(f)Nop(f)(f) بعد التحية:
فإنه بإمكانك أن تصل إلى هدفك من خلال تعديل الكود بحيث يمسح كل الملفات هكذا:
Dim tempfldr
Set tempfldr = CreateObject("Scripting.FileSystemObject")
If Check1.Value = 1 Then
tempfldr.deletefolder "C:windowstemp*.*"
On Error Resume Next
Kill "C:windowstemp*.*"
On Error Resume Next
ElseIf Check1.Value = 0 Then
MsgBox "عليك تفعيل الخيار لحذف الملفات قبل النقر على الزر"
End If
أما إذا كنت تصر على أن تمسح الملفات من نوع Temp فقط، فإن الأمر سهل، فبإمكانك إن لم تجد طريقة مباشرة، أن تقوم بطريقة ملتوية لذلك من خلال إنشاء ملف جديد من نوع Temp، فإذا لم يكن هناك غيره فسيقوم بمسحه، ولن يكون هناك أي خطأ:
قم بإضافة السطر التالي قبل الكود:
Open "c:windowstempbb.tmp" For Append As #1
Close #1
فيكون الكود هكذا:
If Check1.Value = 1 Then
Open "c:windowstempbb.tmp" For Append As #1
Close #1
Kill "C:windowstemp*.tmp"
ElseIf Check1.Value = 0 Then
MsgBox "عليك تفعيل الخيار لحذف الملفات قبل النقر على الزر"
End If
وإليك خالص تحياتي
أخوك
(f)(f)عبد الله(f)(f)
السلام عليكم
حقيقة الأخ عبد الله فتحي ما قصر ولكن بعد هذه طريقة مني :
'
On Error GoTo 1
Dim tempfldr
Set tempfldr = CreateObject("Scripting.FileSystemObject")
If Check1.Value = 1 Then
'
tempfldr.deletefolder "C:windowstemp*.tmp"
'
On Error Resume Next
Kill "C:windowstemp*.tmp"
On Error Resume Next
ElseIf Check1.Value = 0 Then
MsgBox "Úáíß ÊÝÚíá ÇáÎíÇÑ áÍÐÝ ÇáãáÝÇÊ ÞÈá ÇáäÞÑ Úáì ÇáÒÑ"
End If
Exit Sub
1
MsgBox Err.Description
وإذ تريد إخفاء الرسالة إحذف أخر كود
تحياتي
الله عليك اخ فتحي طريقة مبتكرة الف شكر
الف شكر اخوي Visitor ومنكم نستفيد زيادة الخير خيرين
تحياتي لكما
Do as I say, not as I do
We are Anonymous. We are Legion. We don't forgive. We don't forget
هذا الموضوع مغلق.