06-04-14, 05:55 PM
هل يوجد كود معرفة عدد ملفات التي بـ تنسيقات الصور
اريد كود واحد يقوم بمعرفة عدد الصور بكافة تنسيقاتها ...
لاني استخدم طريقة يدوية وهي:
فهل توجد طريقة لمعرفة عدد الملفات التي تعتبر صورة بغض النظر عن الامتداد؟؟
وفقكم الله.
اريد كود واحد يقوم بمعرفة عدد الصور بكافة تنسيقاتها ...
لاني استخدم طريقة يدوية وهي:
كود :
Dim gifcounter As Object
Dim jpgcounter As Object
Dim pngcounter As Object
Dim jpegcounter As Object
Dim allcount As Integer
gifcounter = Directory.GetFiles(fbd.SelectedPath, "*.gif".ToLower).Count
jpgcounter = Directory.GetFiles(fbd.SelectedPath, "*.jpg".ToLower).Count
pngcounter = Directory.GetFiles(fbd.SelectedPath, "*.png".ToLower).Count
jpegcounter = Directory.GetFiles(fbd.SelectedPath, "*.jpeg".ToLower).Count
allcount = gifcounter + jpgcounter + pngcounter + jpegcounter
فهل توجد طريقة لمعرفة عدد الملفات التي تعتبر صورة بغض النظر عن الامتداد؟؟
وفقكم الله.