السلام عليكم
اخواني الكرام
اضفت كود لحدف الصورة بشرط
والكود يعمل جيدا
المشكلة عند اصافة صورة بامتداد مختلف عند الحدف
لا يثم حدف الصورة الى بامتداد الموجود في الكود
ما اريده هو تعديل على الكود ليقوم بحدف جميع انواع الصور
فالمرجو من لديه فكرة ان ينورنا بها
رغم تعديل الكود ليحدف جميع انواع الصور لكن لم تنجح المسؤلة
وهدا هو الكود المستخدم
Dim PathFile As String
"PathFile = Application.CurrentProject.Path & "\MyTeme\phoModel\" & [NmMD] & ".png
If Len(Dir$(PathFile)) > 0 Then
SetAttr PathFile, vbNormal
Kill PathFile
End If
وشكرا