منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

حياكم الله
هذا الكود شغال 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]

بارك الله فيكم تم تعديل الكود بنجــاح

كود :

Private Sub Command1_Click()

If TextName.Text = "" Then

MsgBox "يجب اختيار اســـم الملـف أولاً", vbCritical + vbMsgBoxRight + vbMsgBoxRtlReading, "تنبيــه"

Else

Kill App.Path & "\Picture\" & (TextName)

TextName.Text = ""

End If

End Sub

وهذا كود حذف جميع جميع الملفات من المجلد

PHP كود :

Kill App.Path & "\Picture\" & (*-*) 

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

مصمم هاوي

مصمم هاوي

مصمم هاوي