نسخ الصورة عند ادراج صورة بذات الاسم

[bakry kassala]

اساتذتي خبراء أفيسنا الكرام 

السلام عليكم ورحمة الله وبركاته ..

 

نلجأ إليكم عندما يصعب الأمر علينا .. راجين المساعدة التي بحول الله نجدها منكم .. ندعو الله لنا ولكم التوفيق ..

 

الكود أدناه لأستاذي الفاضل رمهان بارك الله فيه ..

خاص بإدراج صورة من الماسح الضوئي الى مجلد داخل مجلد التطبيق ..

وهو يعمل دون أي مشاكل بحمد الله ...

Set img = CreateObject("wia.commondialog").ShowAcquireImage.SaveFile(CurrentProject.Path & "\photos\" & InputBox("Write Name of Picture Here") & ".jpg")

لكن بعد العمل على التطبيق والتجربة ظهرت بعض المستجدات التي تحتاج التعديل ..

( عند مسح (SCAN) صورة جديدة بذات الاسم لا يتم حفظها نهائياً وتظل الصورة الاولى باقية ..) 

 

عليه ارجو الاضافة على الكود بحيث يتم حفظ الصورة الجديدة ونسخ الصورة القديمة مع الاحتفاظ بالاسم لكلا الصورتين وإضافة COPY أو 001 للصورة النسخة ..

 

تعبير آخر :

المطلوب عند مسح/إدراج صورة حديثة بواسطة هذا الكود 

يتم نسخ الصورة القديمة إذا كانت تحمل ذات الاسم للصورة الحديثة ..

 

للأهمية :

* ضرورة احتفاظ الصورة الحديثة بالاسم لإرتباط الاسم بسجل .

* ضرورة نسخ الصورة القديمة وليس حذفها أو إستبدالها للحفاظ عليها للأرشفة .

 

أتمنى أكون قدرت اوصل المطلوب .

 

إحترامي