نسخ صورة من ملف الي ملف مع اعادة التسمية بالاكسيس

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

ما في اي مشكلة يا شباب , انا شخصيا لا اعتقد ان الموضوع صعب او مستحيل ومع هذا مازلت اقوم بالبحث و الحمد لله تقدمت خصوة الي الامام وارجو منكم مساعدتي فقد تعثرت ,

الحمد لله امس اكرمني ربي وحصلت علي الدالة التي تقوم بنسخ الصور , انها الدالة copyfile ونجحت عملية نسخ الصور ( طبعا مع مراعاة تغير امتداد الصور المناسبة - لاني هذة غلطتي في السابق ) ,

الان المشكلة التي واجهتني ولم اجد لها حل منذ ليلة البارحة هي اضافة متغير يكون هو المدخل الاول للدالة copyfile ( يعني اسم الصور ومسارها ) مع ربط هذا المتغير بفتح ملف الصور ,

يعني في الملف المرفق وعند النقر علي الزر ( نسخ الصور مع اعادة تسميتها ) يظهر ( فتح ملف ) وعند اختيار صور معينة ( من المفترض ان قيمة المتغير تكون هي اسم الصور مع مسارها ) بعد تكون قيمة المتغير ضمن الدالة ليتم عملية النسخ ,,,

هذة الخطوة الاول وارجو منكم المساعدة وانا سوف احاول وجازكم الله كل خير ,,,,

wen_stup.zip

اخي الكريم

هذه محاولة من خلال فهمي لما عرضت

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

لابد من وجود مجلد بجوار البرنامج حتى يضم جميع الصور سميته pic

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

أرجو أن يكون هذا ما تريد

mas_copy.rar

نعم هذا هو المطلوب بارك الله فيك وزادك من علمة وفضلة وادخلك الجنة اللهم امين

لي سؤال : في الدالة filecopy جعلنا امتداد الصور المراد نسخها فقط الامتداد التالي jpg ولكن اذا اردنا ان نجعلة اكثر مرونة ويكون يحتمل كل امتدادات الصور . فكيف ذلك ؟

اي بدلا من احتكار علي امتداد واحد نجعلة ياخذ كل امتدادات الصور ,,,,

بعد إذن استاذنا العزيز mas123

جرب المثال الآن

Test1.rar

أخي مصلح

هدفنا بلوغ المنفعة للجميع

ما منعني عن التواصل إلا بعض المشكلات بالحاسب

إنما نحن تلامذة لمشرفي هذا الصرح التعليمي

أخوك

محمد صالح

السلام عليكم و رحمة الله و بركاته بعد اذن الاستاذ الكبير و المشرف الغالي مصلح الحريصي

تم عمل تعديل لنسخ و اعادة تسمية أي نوع من الملفات صور أو غيرها

الرجاء التجربة و الافادة وشكرا

copy.zip

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

شكرا لكم جمعيا وبارك الله فيكم وادخلكم الجنة اللهم امين .

اخواني لي سؤال ولقد ترددت كثيرا في طرحة وحاولت حل المشكلة بنفسي و لكن و الله لم استطع . لقد تعودنا دوما ان نحصل علي الاكسيس علي ما نريد نحن وليس علي ما يقدمة هو ,,,,,,, من اجل ذلك اريد تغير نص زر الامرين الذينا يظهر نا في مربع الحوار الخاص بتحديد موقع الصور ,,,,

الملف المرفق في نموذج من تصميم الاستاذين ابوهاجر وابوهادي ,,, عند النقر علي زر ( تحديد مواقع الصور ) يظهر مربع حوار (photos) وفي اسفل المربع هناك زرين هما ( open - cancel ) والسؤال هل استطيع تغير نص هذان الزرين الي ( موافق - الغاء ) طبعا بالعربي وذلك دون تغير الكود للزر كوليا هل هذا ممكن؟ ..... واذا كان لا بد من تغير الكود نهائيا فما هو الكود الذي نغير الية ويعطي نفس النتائج ....

وانا حاولت ولكن لم استطع ارجة منكم المساعدة ولكم في هذا الشهر الفضيل الدعاء ,,,, وجزاكم الله كل خير ...

copy.zip

السلام عليكم

أخي ماجد جلال الأمر ليس بالبساطة التي تتصورها لإن طلبك

التغيير في مريع الحوار comdlg32.dll وهذا لاعلاقة له بكود البرنامج المرفق مطلقا

هو مكتبة من ضمن مكتبات الربط الديناميكي dll المضمنة مع النظام وكود المودويل فقط استدعاء

لتلك المكتبة

لاحظ الكود التالي

Public Declare Function GetOpenFileName Lib "comdlg32.dll" Alias "GetOpenFileNameA" _
						(pOpenfilename As OpenFileName) As Long

أخوك / EKSEER

جرب هذا أخي ماجد وأخبرني بالنتيجة

mas_getfile.rar

بارك الله فيك استاذ mas123 وزادك من علمة وفضلة وادخلك الجنة ,,,, اللهم امين

هل يمكن القول ان مربع الحوار الذي مرفق في ملفك هو نتيجة لتغير نوع المكتبة ,؟

حيث انني لاحظت وجود مكتبات في ملفك غير موجود في الملف عندي وعند اضافة اشتغل كل شي تمام ,,,

الحمد لله ,

أخي الكريم

الفكرة في الموضوع بسيطة جدا

وهي اعتمادنا على مكتبات الأوفيس وليس الويندوز

ولذلك من يمتلك أوفيس انجليزي سيظهر كل شيء بالانجليزي ماعدا الزر "موافق" والعنوان

أما من يمتلك أوفيس عربي فسيظهر كل شيء بالعربي

شكرا لك استاذ وبارك الله فيك وزادك من فضلة وعلمة ,,,,