19-04-13, 06:24 PM
If System.IO.Directory.GetFiles("مسار المجلد").Length > 0 Then
Kill("مسار المجلد\*.*")
MsgBox("تم حذف الملف")
Else
MsgBox("الملف غير موجود أو ربما تم حذفه سابقا")
End If
يقلي كلمة " then "
يأشر على حرف " n "
يقلي آحد غير مسموح بها
Kill("مسار المجلد\*.*")
MsgBox("تم حذف الملف")
Else
MsgBox("الملف غير موجود أو ربما تم حذفه سابقا")
End If
يقلي كلمة " then "
يأشر على حرف " n "
يقلي آحد غير مسموح بها
سبحان الله وبحمده سبحان الله العظيم
لا إله إلا الله وحده لا شريك له
اشهد ان لا إله إلا الله وأن محمد عبده ورسوله
استغفر الله وأتوب إليه
الحمد لله ألذي عافانا
الله اكبر
| | | | | آخوك بالدين .. أديب الغامدي
لا إله إلا الله وحده لا شريك له
اشهد ان لا إله إلا الله وأن محمد عبده ورسوله
استغفر الله وأتوب إليه
الحمد لله ألذي عافانا
الله اكبر
| | | | | آخوك بالدين .. أديب الغامدي
