جربتها
يقلي تحت في قآئمت الخطأ
يقلي كلمة " if "
مدري وش بها
Adeeb alghamdi كتب :جربتها
يقلي تحت في قآئمت الخطأ
يقلي كلمة " if "
مدري وش بها
السلام عليكم ورحمة الله وبركاته
هههههههه
أخي طيب إذا إنت ما تدري وش بها كيف تبغاني أدري :confused:
فالحل:
من قائمة الخطأ انقر بزر الفأرة الأيمن فوق الخطأ واختار نسخ للخطأ
ثم ضعه هنا حتى يتسنى لي مساعدتك
بالتوفيق
If System.IO.Directory.GetFiles("مسار المجلد").Length > 0 Then
Kill("مسار المجلد\*.*")
MsgBox("تم حذف الملف")
Else
MsgBox("الملف غير موجود أو ربما تم حذفه سابقا")
End If
يقلي كلمة " then "
يأشر على حرف " n "
يقلي آحد غير مسموح بها
السلام عليكم
أتبع المثال و غير أسم المجلد والمسار فقط
PHP كود :
If System.IO.Directory.Exists("E:\Abu Ehab") = True Then
System.IO.Directory.Delete("E:\Abu Ehab")
MsgBox("تــم حـذف المجــلد الأن ")
Else
MsgBox("لــم يتــم العـثور على المجـلد المـطلوب ")
End If
لحظة بالله
انا عندي الفيجوال بيسك 2012 و 2008
يمكن عندكم غير؟
ويقلي كذا
'If' must end with a matching 'End If'
السلام عليكم ورحمة الله وبركاته
أخي الكريم
معنى رسالة الخطأ أن عبارة If يجب أن تتبعها End If
والكود الذي تم وضعه لا يختلف باختلاف الإصدارات
ولكن تأكد أنك تقوم بنسخ كامل الكود الذي في المشاركة ووضعه في مكان لا يوجد فيه أخطاء
على سبيل المثال لا يتم وضعه ضمن جملة If أخرى ناقصة
بالتوفيق
الله يعطيك الف الف عافيه
ويفوفقك
يعطيك العافيه