الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

نسخ مجموعة ملفات موجوده داخل مجلد في البرنامج

مغلق
بدأه محمدvb في 23 يوليو 2006 · 11 رد · 1,085 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

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

لدي سوال ؟

نسخ مجموعة ملفات من مجلد داخل البرنامج يعني عن طريق App.path

إلى مجلد آخر معلوم أو غير معلوم يتم عن طريق تحديده المهم

كيف يتم ذلك ليس ملف واحد ،، لنفرض 50 ملف مثلاً أو أكثر ،، تحياتي

علماً اني استخدم كود النسخ المعروف 

FileCopy App.Path & "\" & "file1.txt", "c:\bbb\file1.txt"

ملاحظه ( bbb) اسم مجلد المراد نسخ الملفات فيه وموجود في الدرايفر C

بس المطلوب لو كانت مجموعة ملفات داخل مجلد في البرنامج اسمه مثلاً ( aaa)

ابا انسخ المفات الموجوده به إلى مجلد اسمه (bbb) موجود مثلاً في الدرايفر C

مع شرط أن يقوم بنسخ المفات إلى المجلد المحدد بنفس أسمائها

أرجو ان الصوره واضحه وتحياتي للجميع

تم تعديل هذه المشاركة بواسطة محمدvb في 23 يوليو 2006 في 15:24

#2

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

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

اولا قم بعمل مجلد في برنامجك وسميه bbb

ثانيا اعمل مجلد جديد في الدرايف سي وسميه pro

ثم اكتب الكود بالصورة التالية :

 FileCopy App.Path & "\bbb\Mydb.mdb", "c:\pro\Mydb.mdb"

طبعا ما تنساش تحط اسم الملف المراد نسخه بدلا من كلمة Mydb.mdb

جرب وان شاء الله يشتغل معاك

=================

الى اللقاء

JusT LeT YouR MinD WorK

#3

شكراً اخي العزيز

بس كنت اتمنا إجابة لو كان اكثر من ملف وأريد نسخهم جميعاً بكوماند واحد

شاكر تعاونك وتحياتي للجميع

#4

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

اخي لو كانو اكثر من ملف يبقى حضرتك هتكرر نفس الكود تحت زر واحد مع تغيير اسماء الملفات وسيتم نسخهم جميعا

=======

الى اللقاء

JusT LeT YouR MinD WorK

#5

تفضل أخ محمدvb هذا المثال

[1]- نسخ ملف

[2]- نقل الملف

ومميزات اخرى قد لا تحتاجها .كنقل الملفات الموجودة داخل الملف .. أو نقل المجلد دون الملفات التي بداخله

Folder_Mov.zip

تم تعديل هذه المشاركة بواسطة HnHn في 23 يوليو 2006 في 23:44

سجل ايميلك هنا

googlejb5.gif ليصلك كل ما هو مفيد في عالم البرمجة
#6

شكرا Mr king

العزيز والقدير HnHn شكراً جزيلاً

بس الملف المرفق به مشكله ارجو مراجعته

وجزاك الله خير اخي ،، تحياتي للجميع

تم تعديل هذه المشاركة بواسطة محمدvb في 23 يوليو 2006 في 23:06

#7

الملف سليم وتم تحميله مرة اخرى

عندما تضغط على الفورم .. قم بأضافة المديول المرفق في المجلد وسيعمل البرنامج فقط هذا كل شي

سجل ايميلك هنا

googlejb5.gif ليصلك كل ما هو مفيد في عالم البرمجة
#8

شكراً جزيلاً اخ HnHn

كثر الله من امثالك

#9

تفضل أخي الفاضل محمدVB

هذا مثال آخر باستخدام المكتبة MicroSoft Scripting RunTime

Example.rar

مواضيع و دروس
الكتابة بعدة ألوان داخل الــ TetxBoxمكتبة الأكوادتحميل الــ Visual Basic Express 2005
تحميل فيجوال بسيك 6أكواد × أكواددروس في الخوارزميات
لتحميل عدة إصدارات من كريستال ريبورتتحميل برنامج Activ Skin 4.3جمل الــ Sql من الألف إلى الياء
معظم المواقع المختصة بالفيجوال بيسيكموقع كويس للأيقوناتمرجع شامل لأدوات ActivX
كيفية نطق الحرف المكتوب شرح عن كيفية إقامة علاقة مع Data Reprot باستخدام الــ DataEnvironment علاقة مع الـ Datareport بدون استخدام DataEnvironment (( شرح ))
كتاب Migrating From DAO to ADOإضافة لـ VB6 بريمج IndenterVB, إضافة لبيئة تطوير فيجوال بيسك 6حوار بينى و بين عضو حول ال winsock , اتمنى ان يعجبكم
Smart Indenter 3.5 لتنسيق الأكواد, هديه لكل الأعضاء السلسلة الدهبية في المواضيع العلمية ، إستغلال الـ Balloons في الـ Windows XP مصفوفات الأدوات Control Arrays افكار وتلميحات ! , لمن افتقدها من أيام الـ VB6.0
جعل خلفية الـ Mid Form تظهر بالكامل خواص الاداة Winsock لربط الاجهزة عن طريق الانترنتكيف يتم عمل تقارير بإستخدام HTML

7.gif
#10

شكرا جزيلاً Comfort

كثر الله من امثالك اخي العزيز

#11

أخي الفاضل يمكنك أيضاً استخدام هذا الكود

FileCopy App.Path & "*.*", "c:\Mydb.mdb"

ادعو لي بالهداية فأنا أحتاج هذا الدعاء بشدة

منتدى تصميم التطبيقات (و يشمل نظم التشغيل) و تعريبها. <<<<<<

^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

بعض ردودي ومشاراكاتي في المنتدى:

1- هل تريد التحكم بجهازك كأنك محترف, ( إذاً تعال معي وتعلم الرجستري Registry ).

...|-->> فكرة عامة عن الرجستري وكيفية التعامل معه ( رقم المشاركة 1 - 4 )

...|-->> كتابة ملف رجستري

...|-->> تشغيل الرجستري دون رسائل( في الخفاء )

...|-->> بعض التحكمات التي يقدمها الرجستري

...|-->>=>> إيقاف عمل Ctrl+Alt+delete ( Task Manager )

...|-->>=>> إخفاء قائمة ملف file وبذلك لن ترى قائمة file

...|........... في مشاركة أخرى >> حتى ولو قمت بالضغط على أي ملف أو مجلد بزر الفأرة الأيمن

...|-->>=>> لإيقاف وإخفاء عمل البحث Find من على الجهاز

...|-->> بعض المعلومات التي يقدمها الرجستري

...|-->>=>> معرفة الأجهزة المتصلة بالـIDE ورقم السريال الخاص لكل جهاز

...|-->> من أحسن مواقع الرجستري

...|-->>=>> http://technet2.microsoft.com/WindowsServe...3.mspx?mfr=true

منتدى مبرمجي لغة Microsoft Visual Basic <<<<<<

^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

برامج من صنعي:

1- لعبة (من صنعي ), جربها وقول رأيك

2- ساعة حائط, من صنعي

بعض ردودي ومشاراكاتي في المنتدى:

1- طريقتان لفتح ملف معين وليكن بامتداد SWF ببرنامجك [ الطريقة الأولى - الطرقة الثانية ]

2- هل تريد ألا يتحكم أحد في الجهاز غيرك؟

3- كود ايقاف عمل زر الاغلاق x بزاوية الفورم

4- عرض صورة متحركة بالكود , أي بدون استخدام أدوات

5- اجعل الـComboBox [ تنسدل - لما تكتب فيا تنسدل وتظهر الاسماء التى تبدأ بالحرف اللي كتبته فى الكومبو ]

6- إنشاء مكون أثناء تشغيل البرنامج ثم إدخاله تحت نطاق مكون آخر مثلاً إدخاله داخل نطاق microsoft tabbed dialog control

أسئلتي في المنتدى التي تم الإجابة عليها:

1- كيف يمكن قراءة الإشارات الصوتية الخارجة من الميكروفون أو السماعات ( لرسمها أو العبث بها ) ؟ أرجو المزيد من الردود ...

2- إيقاف عمل الرجستري

أسئلتي في المنتدى التي لم يتم الإجابة عليها:

اقتباس
ردك يعطي حافذ للإجابة على أسئلتك
#12

:unsure: أنا آسف لقد تسرعت وكتبت كود خطأ

ادعو لي بالهداية فأنا أحتاج هذا الدعاء بشدة

منتدى تصميم التطبيقات (و يشمل نظم التشغيل) و تعريبها. <<<<<<

^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

بعض ردودي ومشاراكاتي في المنتدى:

1- هل تريد التحكم بجهازك كأنك محترف, ( إذاً تعال معي وتعلم الرجستري Registry ).

...|-->> فكرة عامة عن الرجستري وكيفية التعامل معه ( رقم المشاركة 1 - 4 )

...|-->> كتابة ملف رجستري

...|-->> تشغيل الرجستري دون رسائل( في الخفاء )

...|-->> بعض التحكمات التي يقدمها الرجستري

...|-->>=>> إيقاف عمل Ctrl+Alt+delete ( Task Manager )

...|-->>=>> إخفاء قائمة ملف file وبذلك لن ترى قائمة file

...|........... في مشاركة أخرى >> حتى ولو قمت بالضغط على أي ملف أو مجلد بزر الفأرة الأيمن

...|-->>=>> لإيقاف وإخفاء عمل البحث Find من على الجهاز

...|-->> بعض المعلومات التي يقدمها الرجستري

...|-->>=>> معرفة الأجهزة المتصلة بالـIDE ورقم السريال الخاص لكل جهاز

...|-->> من أحسن مواقع الرجستري

...|-->>=>> http://technet2.microsoft.com/WindowsServe...3.mspx?mfr=true

منتدى مبرمجي لغة Microsoft Visual Basic <<<<<<

^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

برامج من صنعي:

1- لعبة (من صنعي ), جربها وقول رأيك

2- ساعة حائط, من صنعي

بعض ردودي ومشاراكاتي في المنتدى:

1- طريقتان لفتح ملف معين وليكن بامتداد SWF ببرنامجك [ الطريقة الأولى - الطرقة الثانية ]

2- هل تريد ألا يتحكم أحد في الجهاز غيرك؟

3- كود ايقاف عمل زر الاغلاق x بزاوية الفورم

4- عرض صورة متحركة بالكود , أي بدون استخدام أدوات

5- اجعل الـComboBox [ تنسدل - لما تكتب فيا تنسدل وتظهر الاسماء التى تبدأ بالحرف اللي كتبته فى الكومبو ]

6- إنشاء مكون أثناء تشغيل البرنامج ثم إدخاله تحت نطاق مكون آخر مثلاً إدخاله داخل نطاق microsoft tabbed dialog control

أسئلتي في المنتدى التي تم الإجابة عليها:

1- كيف يمكن قراءة الإشارات الصوتية الخارجة من الميكروفون أو السماعات ( لرسمها أو العبث بها ) ؟ أرجو المزيد من الردود ...

2- إيقاف عمل الرجستري

أسئلتي في المنتدى التي لم يتم الإجابة عليها:

اقتباس
ردك يعطي حافذ للإجابة على أسئلتك

هذا الموضوع مغلق.

مواضيع مشابهة

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…