كود حدف صورة مطلـــوب كود لحدف صورة من مجلد

[ayman14]

السلام عليكم

اخواني الكرام

اضفت كود لحدف الصورة بشرط 

والكود يعمل جيدا 

المشكلة عند اصافة صورة بامتداد  مختلف عند الحدف 

لا يثم حدف الصورة الى بامتداد الموجود في الكود

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

فالمرجو من لديه فكرة ان ينورنا بها 

رغم تعديل الكود ليحدف جميع انواع الصور لكن لم تنجح المسؤلة

وهدا هو الكود المستخدم

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
 

 

وشكرا

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

[essam rabea]

الأخ ayman14

لعله المطلوب

Dim PathFile As String
PathFile = Application.CurrentProject.Path & "\MyTeme\phoModel\" & [NmMD] & ".*"
If Len(Dir$(PathFile)) > 0 Then
    'SetAttr PathFile, vbNormal
    Kill PathFile
End If
  

سيتم حذف جميع الملفات التى تحمل نفس الإسم مع إختلاف إمتداداتها

خالص تحياتى

[ayman14]

السلام عليكم

 

اشكرك اخي الفاضل على تغيير في الكود 

الكود يعمل جيدا

وجعلها الله في مبزان حسناتك

وشكرا