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

سهلة صديقي.

بمجرد توصيل الفلاش ميموري قم بفتحها ---> و تحديد جميع الملفات---> اختيار نسخ من قائمة تحرير ---> اختيار المكان الذي تريد النسخ اليه --->اختيار لصق.

هذا الجواب لسؤالك تماما رغم أني أعلم أنك تقصد غير هذا :yes:

و لكن هكذا برامج غير جيدة و لا أظن أنه مصرح بها رغم أنها سهلة جدا.

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

أنا آسف على سوء ظني و لكني أرجو إيضاح الغاية من البرنامج لتتم المساعدة.

اقتباس

سهلة صديقي.

بمجرد توصيل الفلاش ميموري قم بفتحها ---> و تحديد جميع الملفات---> اختيار نسخ من قائمة تحرير ---> اختيار المكان الذي تريد النسخ اليه --->اختيار لصق.

هذا الجواب لسؤالك تماما رغم أني أعلم أنك تقصد غير هذا

و لكن هكذا برامج غير جيدة و لا أظن أنه مصرح بها رغم أنها سهلة جدا.

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

أنا آسف على سوء ظني و لكني أرجو إيضاح الغاية من البرنامج لتتم المساعدة.

يجب أن تفترض حين النية بكل الأحوال

@ moon3000 :

أهلا بك بالمنتدى , برجاء مراجعة ضوابط الكتابة لأن الموضوع مخالف (العنوان و عدم البحث).

---

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

افرض ان احدا وضع فلاش ميموري تحتوي على 2 جيجا من الملفات، هل تريد ان تنتسخ كلها تلقائياً ؟؟؟

واذا كنت تريد سرقة ملفات الآخرين فهذه الطريقة فاشلة

قال عمر -رضي الله عنه- : (( ولا تظنن بكلمة خرجت من أخيك شراً وأنت تجد لها من الخير محملاُ ))

الراجل دي أول مشاركه له , مش يتهم بالسرقة

ممكن حابب عمل اداة نسخ الملفات على طول بدلا من :

اقتباس

بمجرد توصيل الفلاش ميموري قم بفتحها ---> و تحديد جميع الملفات---> اختيار نسخ من قائمة تحرير ---> اختيار المكان الذي تريد النسخ اليه --->اختيار لصق.

جزاكم الله خيرا

باختصار شديد لدي لدي رسالتان وإعادة طلب...

الرسالة الأولى :شكر وامتنان لللاخوة (او بالأحرى الأساتذة) الذين تكرموا بالرد على تساؤلاتي..

الرسالة الثانية: اعتذار شديد عن الاخلال بشروط الكتابة في المنتدى فضلاً عن الأخطاء الإملائية الواردة..

الاستاذ ات كنت تقصد (device information &fige copy)و التي تكررت كثيراً فهي للأسف لم تفي بالغرض!!

الاستاذ لا الومك لانك تشك في نيتي (وهذا ما لم اتوقعه) فلعله فعلا كان علي ان افصح عن غرضي الذي اسعى اليه..

يا استاذ لا اعتقد ان أي شخص مسلم يسعى للاضرار باحد من البشر فما بالك بالإضرار بالمسلمين !!...و أنا غير مستعد ان اتحمل ذنب عمل برنامج لإيذاء الناس ولا ان اتحمل ذنب كل من يستخدمه !!.. و لا اظن ان احداً في هذا المنتدى مستعد ان يفعل ذلك !!.. وكما تعلم ان البرامج التي تقوم بتلك الأضرار كثيرة جداً و في متناول الأيدي ... فلماذا أريد أنا لنفسي المسكينة أن تبوء بإثم عمل برنامج جديد على غرار تلك البرامج !!! ثم إذا كان المانع في اعطاء معلومة ما هو الخوف من سوء استخدامها ( و هذا وارد) فما المعلومات التي ستعطى إذن!! فكل معلومة يمكن ان تستغل في الخير اوفي الشر !!

القضية وما فيها ان المدرس اعطى لكل واحد منا برنامج ليقوم بتوضيح كيفية عمله ثم كتابة شفرته و كان هذا البرنامج من نصيبي و طلب منا البحث عن الاجابة في منتديات البرمجة ..أغلب زملائي فضلوا البحث في المنتديات الأجنبية منذ البداية وحصل معظمهم على إجابات شافية لما يريد البحث عنه ..أنا وقلة من زملائي فضلنا البحث في المنديات العربية أولاً .. ولا اخفي عليكم أني كنت افضلهم حالاً, حيث تلقيت الردود منكم في فترة وجيزة لكنها للأسف لم تكن شافية بل بعضها كانت قاسية!! و انا اعترف ان الخطأ الذي سبب ذلك هو عندي..لأنني لم أوضح بالضبط ما الذي أريده و لماذا أريده..

فللمرة الثانية :يا أساتذة انا اقصد السؤال عن الطريقة التي يمكن ان يتم بها النسخ التلقائي لجميع ملفات الفلاش ميموري الى قرص محدد © مثلاً بمجرد توصيلها بجهاز الكمبيوتر..

فهل أبقى محتفظاً بالأمل في انتظار الإجابة الشافية منكم ؟؟....

و هل سيكون هذا المنتدى الملاذ الآمن للمبرمج العربي المبتدئ؟؟!!

أم ان خياره الوحيد سيكون هو الاستنجاد بالمنتديات الأجنبية؟؟!!

راجع اريد معرفة تدخيل فلاش ممري

شكراً أخي ، msayed2004 ،

فعند قرائة موضوع الأخ ( moon3000 ) حوالي الساعة الثامنة صباحا تقريبا ًكنت أحاول البحث بأرشيفي الخاص !!!

علي العموم ها هو ما توصلت إلية !!!

وهو عبارة عن تابع API ، تحت إسم GetDriveType ، فقمت بإنشاء Drive وإجراء Refresh علية ومن ثم عمل Loop علي محتوياتة وإستخدام التابع GetDriveType في معرفة نوع الفلاش ، فظهر لي نتائج بأن نوع الدرايف ( فلاش ) يأخذ الرقم ( 2 )

أنظر المثال ، وأتمني أن يكون هذا صحيح ومفيد

شكراً

FindDriveFlash.rar

2 تعنى Removable بصفة عامة

Private Const DRIVE_REMOVABLE = 2

بسم الله الرحمن الرحيم ...

بعد إذن مشرفنا أحب أرد عالعضو بمثال من الـ PSC للمبرمج rm_code

المثـــــــــــــــال

وبه يتم عمل Subclass لـ WM_DEVICECHANGE لكشف تغير الأجهزة الموصولة مع الجهاز ..

وبعد ذلك يمكنك إستدعاء دالة الـ GetDriveType لمعرفة نوعية الجهاز الجديد ...

كما أنصح الإخوة برؤية أمثلة أخرى لنفس المبرمج فالأكواد المطروحة منه قمة في الإبداع ...

تقبلوا مروري ...

أخي الكريم ، تحياتي لك ولجميع الأعضاء ،

لاحظ الكود ، فأنا لا أستخدم سوي أبسط الطرق ، ألا وهي الآداة Driver !!!

فقبل جلب نوع الدرايفات قمت بإجراء ( Drive1.Refresh ) ، فهذا العمل يؤدي الي جلب التحديثال الجديدة للدرايفات !!!

وإذا وضعنا الكود الموجود داخل CommandButton الي آداة Timer سيؤدي نفس الغرض

شكراً

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

فقط تعليق بسيط

المفروض عند البحث عن أنواع الأقراص القابلة للازالة استبعاد القرص المرن A فالبرنامج بذلك سيحصل دائما على نتيجة واحدة

بالنسبة للمثال الذي ذكره الأخ Syntax_err فقد لمح اليه الأخ محمد من قبل وهو مثال جيد لمن يريد جعل العملية آلية التنفيذ

أما عملية التايمر فهي فكرة غير محبذة

كنت قد عملت مثال بسيط جدا استنادا إلى فكرة مراقبة رسائل النظام لمراقبة الفلاش ميموري الموجودة في المثال الذي تحدث عنه الأخ Syntax_errوحذف الملف autorun.inf تلقائيا

قد يفيدك المثال أخي في استعمال عملية النسخ التلقائي هنا

بالتوفيق للجميع

أخي الكريم ، ما الخبر !!!

المثال الذي تفضلت بإضافتة نظرت إلية من قبل وصدقني والله عجبني وإستفدت منه كثيراً ، بس أخي أنا أحببت أن أضع مثال بسيط جداً كي تطضح الصورة !!!

دائماً المبرمجين خاصتاً الجدد يحاولون فهم البسيط ومن ثم فهم الأصعب فالأصعب .... ؟؟؟

علي العموم شكراً مرة أخري علي المثال ، بس ليس من المعني أن مثالي لا يعمل !!!

هل المثال لا يعمل ؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟

شكراً

أخي العزيز

نتيجة الكود عندي دائما تعطيني القرص A لأنه القرص الأول القابل للإزالة

يمكن تعديل الكود أو السطر

If GetDriveType(Mid(Drive1.List(logLoop), 1, 2)) = 2 Then

فيصبح

 If GetDriveType(Mid(Drive1.List(logLoop), 1, 2)) = 2 And Mid(Drive1.List(logLoop), 1, 2) <> "a:" Then

أو عن طريق السكريبت البسيط

Dim Fso As Object
Dim aDrive
Set Fso = CreateObject("Scripting.FileSystemObject")
For Each aDrive In Fso.Drives
If aDrive.DriveType = 1 And aDrive.DriveLetter <> "A" Then
List1.AddItem aDrive.DriveLetter
End If
Next

بالتوفيق دائما

شكراً جزيلاً...وجاري التطبيق و المحاولة

فعلاً أخي ، أنا لم أنتبه الي هذه النقطة ، بس أحب أوضح لك شيء آخر ، تسبب في هذه المشكلة ، وهي أنني لم أمتلك مشغل سواقة ( قرص مرن ) لأنني منذ تعاملي مع الـ ( Flash ) نسيت شيء يدعي ( FDD ) !!!

لكن فعلاً أنا جربت من قبل الكود حينما كنت أمتلك FDD وخرجت بهذه النتائج :

اقتباس

1- إذا كان الناتج = 2 ---------------- قرص مرن

2- إذا كان الناتج = 3 ---------------- قرص صلب

3- إذا كان الناتج = 4 ---------------- مشغل متصل من جهاز خارجي Remote

4- إذا كان الناتج = 5 ---------------- CD-ROM

إذا كان الناتج = 6 ---------------- Ram Disk

فإسمحلي أخي ، من المنتق تجربة الكود قبل إستخدامة وإجراء فحص كامل علية ( Test ) ، أنا علي سبيل المثال حينما أحصل علي أي كود أتأكد من صحتة تماماً

علي العموم نحن نتعلم كل يوم ، وشكراً علي التعديل

شكراً

اثناء بحثي وجدت سورس كود لبرنامج ينسخ ال يو اس بي USB و عندما حاولت فتحها و تشغيلها ظهرت رسالة خطأ ترجمة ..ارجو ممن لة الخبرة أن يمد لي يد العون او ايجاد البديل .. و جزاكم االه خير الجزاء

الكود في المرفقات ..

زيارة الموقع

USB_Flash_2050602272007.zip

USB_Flash_2050602272007.zip