حذف ملف معين من داخل مجلد

[tlayt kamal]

اخواني اعضاء  المنتدى 

فضلا لدي ملف اكسيل رئيسي  اريد وضع كود في فورم  لحدف الملف المختار من الكومبوبوكس  وهذه الملفات مخزنة داخل مجلد اسمه "my_f" في 😧

جزاكم الله خيرا

my_regestrer.rar

[الـعيدروس]

السلام عليكم

بهذا الكود

Private Sub CommandButton1_Click()

Dim pth, Nm

pth = "D:\my_f\"
Nm = Me.ComboBox1.Value & ".*"
If Dir(pth & Nm, vbDirectory) = "" Then
MsgBox "لايوجد ملف بنفس الاسم بالمسار المحدد لحذفه"
Else
Kill pth & Nm & ".*"
MsgBox "تم حذف الملف بنجاح"
End If

End Sub

 

[tlayt kamal]

استاذي العيدروس مشكور على ردك السريع

جربت الكود ولكن لا يحذف الملف المختار يعطي رسالة "لا يوجد ملف بنفس الاسم في المسار المحدد"

اذكرك ان المجلد my_f  بداخل مجلد اخر اسمه my_regestrer في D:

[الـعيدروس]

روح للمجلد الذي بالمسار 

وانسخ المسار وحطه في المتغير

pth = "D:\my_f\"

ولاتنسى تحط علامة  "\" في نهاية المسار

[tlayt kamal]

استادي العيدروس ربنا يحفظك ويزيدك من علمه 

بس في لمسة لم تكمل بعد لايحدف اسم الملف من الرئيسي العمود "A"

[الـعيدروس]

اذا كان بنفس مسار الملف الذي به الكود

Private Sub CommandButton1_Click()

Dim pth, Nm, Pt, pth1

pth = "D:\my_f\"
pth1 = ThisWorkbook.Path & "\"

Nm = Me.ComboBox1.Value & ".*"
Ar = Array(pth, pth1)

For Each Pt In Ar

If Dir(Ar & Nm, vbDirectory) = "" Then
MsgBox "لايوجد ملف بنفس الاسم بالمسار المحدد لحذفه" & Pt
Else
Kill Ar & Nm & ".*"
MsgBox "تم حذف الملف بنجاح من المسار" & " :" & Pt
End If

Next Pt

End Sub

 

[tlayt kamal]

لا ينفذ 

 

[الـعيدروس]

اخي الكريم

حط مسار المجلد الرئيسي الذي ذكرته

بهذا السطر 

pth1 = ThisWorkbook.Path & "\"

فليكن مثلاً "C:\Users\aad\Desktop"

يكتب بالمتغير كالتالي

pth1 = "C:\Users\aad\Desktop" & "\"

 

تم تعديل أكتوبر 31, 2019 بواسطه الـعيدروس

[tlayt kamal]

عمل ممتاز

اسأل الله ان يجعل هذا في ميزان حسناتك