[مصمم هاوي]

حياكم الله
هذا الكود شغال  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\" & (*-*)