+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : آبي كود يرد على الأخطاء (/showthread.php?tid=8490)
الصفحات:
1
2
آبي كود يرد على الأخطاء - Adeeb alghamdi - 15-04-13
الحين لمن ابي ملفات تنحذف من داخل ملف
اكتب
اوكيه
حلو
الحين ابي اجرب انحذفت
صح؟
طيب واالحين اذا انحذفت ابي تجيك ةسج يقله تم الحذف بنجاح
اوكيه ؟ حلو
الحين انا لمن احذف تنحذف الملفات الي فالملف
وازيد اضغط يقلي من البرنامج الفيجوال بيسك خطأ لم يتم العثور على نتائج
يعني يقصد ما لقي ملفات يحذفها
ابي كود يقله " تم حذف الملفات من قبل " زي كذا قصدي
مثثثثلا زي كذا
يا شباب انا اشف اذا مقصر ولااسئلتي كثيييره
والله بس انا قاعد اسوي برنامج ضروري لي
اكتب
PHP كود :
Kill("C:\Windows\recent\*.*")
حلو
الحين ابي اجرب انحذفت
صح؟طيب واالحين اذا انحذفت ابي تجيك ةسج يقله تم الحذف بنجاح
اوكيه ؟ حلو
الحين انا لمن احذف تنحذف الملفات الي فالملف
وازيد اضغط يقلي من البرنامج الفيجوال بيسك خطأ لم يتم العثور على نتائج
يعني يقصد ما لقي ملفات يحذفها
ابي كود يقله " تم حذف الملفات من قبل " زي كذا قصدي
مثثثثلا زي كذا
يا شباب انا اشف اذا مقصر ولااسئلتي كثيييره
والله بس انا قاعد اسوي برنامج ضروري لي
آبي كود يرد على الأخطاء - sooriaty03 - 15-04-13
السلام عليكم ورحمة الله وبركاته
تفضل أخي الكريم
هذا الكود المطلوب
كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim FileName As String = "Example.txt"
If Dir(FileName) <> "" Then
Kill(FileName)
MsgBox("تم حذف الملف")
Else
MsgBox("الملف غير موجود أو ربما تم حذفه سابقا")
End If
End Subبالتوفيق
آبي كود يرد على الأخطاء - ali.alfoly - 16-04-13
معلش لى سؤال عشان انا قربت اتجنن
Dir
Kill
منين بتعرفو هذه الدوال
آبي كود يرد على الأخطاء - Abu Ehab - 16-04-13
إقتباس : معلش لى سؤال عشان انا قربت اتجننههههههه
Dir
Kill
منين بتعرفو هذه الدوال
طيب ....
السلام عليكم ورحمة الله وبركاته
راجــــــع الموضوع التالى وراح يفيـدك ,,, (هذا الكلام لصاحب السؤال) .
Directories
آبي كود يرد على الأخطاء - sooriaty03 - 16-04-13
ali.alfoly كتب :معلش لى سؤال عشان انا قربت اتجنن
Dir
Kill
منين بتعرفو هذه الدوال
ههههههههه
والله يا أخي أنا بعرفها من أيام VB6
وأغلب الأوامر التي تعلمتها آنذاك كانت عن طريق Object Browser
والذي لا يزال موجودا في إصدار Visual Studio 2010
ولإظهاره ما عليك سوى الضغط على الزر F2
لتظهر لديك قائمة بكل المراجع وما تحتوي من أوامر
كما تستطيع بواسطته البحث عن أي أمر تريد على سبيل المثال Kill
بالتوفيق
آبي كود يرد على الأخطاء - Adeeb alghamdi - 16-04-13
الطريقة خطأ يا سورياتي
جربتها ما طلع
آبي كود يرد على الأخطاء - sooriaty03 - 16-04-13
Adeeb alghamdi كتب :الطريقة خطأ يا سورياتي
جربتها ما طلع
السلام عليكم ورحمة الله وبركاته
أخي الكريم إذا ممكن تعطيني الكود الذي قمت بتجربته
لأن الكود مجربه وشغال عندي بشكل سليم
بالتوفيق
آبي كود يرد على الأخطاء - Adeeb alghamdi - 16-04-13
PHP كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim FileName As String = "Example.txt"
If Dir(FileName) <> "" Then
Kill(FileName)
MsgBox("تم حذف الملف")
Else
MsgBox("الملف غير موجود أو ربما تم حذفه سابقا")
End If
End Sub
طيب اسمع ابي مو الملف ينحذف ابي الي بداخل الملف ملفات ابيها تنحذف
يا رب ماني مزعجك
آبي كود يرد على الأخطاء - Adeeb alghamdi - 16-04-13
لالالا خلاص مابي كيف احذف الي بالدخال عرفت
اسمع ابي كيف اعرف اذا انحذفت الملفات وما بقي شي من الملفات
ابيه يقله انه ماي ملف
آبي كود يرد على الأخطاء - sooriaty03 - 17-04-13
السلام عليكم ورحمة الله وبركاته
تفضل أخي الكريم
كود :
If System.IO.Directory.GetFiles("مسار المجلد").Length > 0 Then
Kill("مسار المجلد\*.*")
MsgBox("تم حذف الملف")
Else
MsgBox("الملف غير موجود أو ربما تم حذفه سابقا")
End Ifبالتوفيق