السلام عليكم ورحمة الله وبركاتة ,,
كل عام وانتم بخير وعيد مبارك عليكم جمعيا
هل يوجد كود في الاكسيس يخبرنا بعدد الصور الموجودة داخل ملف مجلد محدد في جهاز الكمبيوتر ؟
ولتوضيح السؤال : لدي برنامج ينسخ الصور من الماسح الضوئي ويضعها داخل ملف محدد واردت من الاكسيس ان يعرض عدد الصور الموجودة داخل هذا الملف مهم كان مصدرها ,, اي انها منسوخة من الماسح الضوئي او غير ذلك , اي انة يوضح عدد الصور الموجودة داخل الملف ,,,,
طبعا امتداد الصور هو : jpeg
وشكرا جزيلا لكم جميعا ,,,,
تم تعديل هذه المشاركة بواسطة همام ابوعرقوب في 13 سبتمبر 2010 في 23:03 — السبب: مجلد بدل ملف
ماجدجلال كتب:السلام عليكم ورحمة الله وبركاتة ,,
كل علم وانتم بخير وعيد مبارك عليكم جمعيا .
هل يوجد كود في الاكسيس يخبرنا بعدد الصور الموجودة داخل ملف محدد في جهاز الكمبيوتر ؟
ولتوضيح السؤال : لدي برنامج ينسخ الصور من الماسح الضوئي ويضعها داخل ملف محدد واردت من الاكسيس ان يعرض عدد الصور الموجودة داخل هذا الملف مهم كان مصدرها ,, اي انها منسوخة من الماسح الضوئي او غير ذلك , اي انة يوضح عدد الصور الموجودة داخل الملف ,,,,
طبعا امتداد الصور هو : jpeg
وشكرا جزيلا لكم جميعا ,,,,
لا اعرف و انطر رد الاخوان
وعليكم السلام ورحمة الله وبركاته
عملت مثال من سنوات مضت يظهر لك
عدد الملفات في أي مجلد مهما كان لعلك
تعدل عليه بما يتوافق مع متطلباتك .. أنظر صورة البرنامج
وهو على هذا الرابط
السلام عليكم ورحمة الله
وكل عام وانتم بخير
شكرا لك اخي اكسير الحياة علي مساعدتك علي , وانا اسف في التاخر علي الرد بسبب الانشعال لظروف العيد , وايضا كنت احول التعديل علي الكود حتي احصرة فقط في اظهار عدد الملفات التي امتدادها ( .jpeg ) ولكن دون جدوي فبعد يومين من المحاولة لم اتوصل الي اي نتيجة ,,,
لذلك اذا كان احد الاخوان يستطيع المساعدة فارجوكم ساعوني ولكم جزيل الشكر و الامتنان ....
اخي الكريم .. افتح مثال الاخ اكسير وإذهب الى الوحدات النمطية
افتح Module1
إذهب الى الدالة
Public Function NumFiles(sPath As String) As Long
أبحث عن هذا السطر
sPath = sPath & "*.*"
اجعله يصبح هكذا
sPath = sPath & "*.JPEG"
وبذلك تكون حددت نوع الملف فقط من النوع السابق
تحياتي
OMANI FOR EVER
-------------------------------------------------
-------------------------------------------------
بارك الله فيك اخي عماني على هذه الاضافة والحضور المشرف هنا
نشكرك ونحييك..
وَمِنَ النَّاسِ مَن يُعْجِبُكَ قَوْلُهُ فِي الْحَيَاةِ الدُّنْيَا وَيُشْهِدُ الله عَلَى مَا فِي قَلْبِهِ وَهُوَ أَلَدُّ الْخِصَامِ
شكرا جزيلا لكم اخوتي .
الان تم حل هذة المشكلة وبقيت مسالة صغيرة جدا .
الان تم تغير العبارة السابق كما اشار الي ذلك الاخ عماني لتصبح بهذا الشكل
sPath = sPath & "*.JPEG"
ولكن اذا اردت ان اضيف عبارة اخري تمثل امتداد اخري من امتدادات الصور ,
فمن المعروف ان الصور لها العديد من الامتدادات او الالحواق , فكيف يتم ايضافة امتداد اخري الي العبارة السابقة
وشكرا جزيلا لكم
السلام عليكم ورحمة الله وبركاتة
حاول استخدام الصيغة التالية ولكنها لم تنجح
sPath = sPath & "*.JPEG OR "*.BMP" OR "*.GIF" OR "*.PNG""
حيث حاولت اضافة جميع امتدادات الصورة التي اعرفها .
ارجو منكم المساعدة وشكرا لكم ,,,,
تم تعديل هذه المشاركة بواسطة ماجدجلال في 18 سبتمبر 2010 في 02:17
للرفع
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…