+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : تعديل كود حذف ملف (/showthread.php?tid=50817)
تعديل كود حذف ملف - مصمم هاوي - 21-12-24
حياكم الله
هذا الكود شغال 100% لحذف ملف موجود في مجلد ضمن ملفات المشروع
كود :
Private Sub Command1_Click()
If TextName.Text = "" Then
MsgBox "يجب اختيار اســـم الملـف أولاً", vbCritical + vbMsgBoxRight + vbMsgBoxRtlReading, "تنبيــه"
Else
' الكود شغال بهذه الكيفية
Kill "C:\Central_Library\Picture\" & (TextName)
TextName.Text = ""
End If
End Subحيث:
1: Central_Library اسـم مجلد البرنامج
2: Picture مجلد الملفات
3: TextName اسم التكست الموجود به اسـم الملف المراد حذفه
المطلوب : هل يمكن التعديل على هذا الكود بحيث إذا تم نقل البرنامج من القرص C أو D لا يحدث خطأ حسب ما هو موضح في المرفق
ملاحظة: معرفة اسم الملف عندي تمام المهم تعديل جزئية الحذف بحيث لو تم نقل البرنامج لا يحدث خطأ
[attachment=29979]
RE: تعديل كود حذف ملف - مصمم هاوي - 21-12-24
بارك الله فيكم تم تعديل الكود بنجــاح
كود :
Private Sub Command1_Click()
If TextName.Text = "" Then
MsgBox "يجب اختيار اســـم الملـف أولاً", vbCritical + vbMsgBoxRight + vbMsgBoxRtlReading, "تنبيــه"
Else
Kill App.Path & "\Picture\" & (TextName)
TextName.Text = ""
End If
End SubRE: تعديل كود حذف ملف - مصمم هاوي - 25-12-24
وهذا كود حذف جميع جميع الملفات من المجلد
PHP كود :
Kill App.Path & "\Picture\" & (*-*)