منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[كود] نقل ملفات - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [كود] نقل ملفات (/showthread.php?tid=29687)

الصفحات: 1 2 3


RE: نقل ملفات - سعود - 29-05-19

نعم صحيح لقد نسيت يحتاج تعريف آخر ......النسيان مصيبةSad
ساجرب باذن الله ...ان لم يسبقني احد.

تبين ان المشكلة بسيطة ولم يكن هناك داعي لهاSmile
انظر للشرط وجوابه
PHP كود :
If tsp.Text.EndsWith("\") = False Then
                tsp.Text = tsp.Text.Insert(tsp.TextLength, "
\")
            End If
            fromf = tsp.Text 
عدلته الان وقارنه بالمكتوب من قبلSmile

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



RE: نقل ملفات - سعود - 30-05-19

تم تحديث المثال هنا
بحيث يمكنك الاختيار بين النسخ او النقل


RE: نقل ملفات - ابو خليل99 - 30-05-19

شكرا لك اخي سعود وبارك الله فيك ونفع بك وبعلمك 


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

الامر الاخر 
كود :
For Each fl As FileInfo In dir.GetFiles("*.txt")


كيف يمكنني تعديل الكود التالي بحيث يحتوي مثلا اكثر من امتداد في نفس الوقت ؟؟؟؟ .....



بالنسبة للمثال الذي يحتوي على النقل والنسخ ... 

ظهرت لي مشكلة 




RE: نقل ملفات - سعود - 30-05-19

إقتباس :كيف يمكنني تعديل الكود التالي بحيث يحتوي مثلا اكثر من امتداد في نفس الوقت ؟؟؟؟ .....
هذا بجعل الفلتر هكذا 

PHP كود :
*.* 
 بدلا عن

PHP كود :
*.txt 

إقتباس :كيف يمكن جعله يقوم بالبحث داخل كافة المجلدات
اكيد مسالة الصلاحيات راح توقف قدامك!
وحل هذي بتشغيل البرنامج كمسؤول(يعني لا بد يكون المستخدم الحالي معه صلاحيات كاملة)
التعديل يكون على كود Getfiles بان تضيف لها SearchOption.AllDirectories

فيه مثال عملته قديما
يبحث عن طريق Environment

كمثال:


PHP كود :
System.Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments



RE: نقل ملفات - سعود - 30-05-19

بالنسبة لرسالة الاخيرة هذا يعني ان المصفوفة all لاتحتوي عناصر.


RE: نقل ملفات - ابو خليل99 - 08-06-19

بارك الله فيك وجزاك كل الخير اخي سعود 

هل يمكن اخي تجاهل المجلدات التي تحتوي صلاحيات الادمن بطريقة ما ؟؟؟؟ 

بحيث لا يتم البحث داخل المجلدات التي تحتوي صلاحيات ادمن ؟؟


RE: نقل ملفات - سعود - 08-06-19

لم اجد حل جذري لها لكن ....محاولة (تشغيل البرنامج كمسؤول - تستخدم البحث باستخدام  الـ Environments)
وتستخدم الاكواد ضمن Try  ولا تكتب شيء عن الخطا......حل بسيط حتى ياتي خبير برمجي.


RE: نقل ملفات - elgokr - 08-06-19

اضافة لما قدمه اخى سعود

بخصوص تخطى الخطاء والاستكمال

فيمكنك مراجعة الرابط التالى راجع الشرح فى الرد رقم 4 و 6 جيداً
http://vb4arb.com/vb/showthread.php?tid=28706&pid=137604#pid137604

الرابط سيوضح كيفية التخطى الخطاء

واذا كان بعرض رسالة او بدون 

ويمكن بدلاً من الرسالة استغلال الفكرة كاعمل ليست 
تدرج بها المجلدات التى لم يتمكن من التعامل معها

تحياتى لك
وتمنياتى لك التوفيق



RE: نقل ملفات - سعود - 08-06-19

إقتباس :ويمكن بدلاً من الرسالة استغلال الفكرة كاعمل ليست 

تدرج بها المجلدات التى لم يتمكن من التعامل معها
فعلا فكرة رائعة جدا ...خصوصا لو البرنامج مرتبط بخادم ما يرسل نوع نظام التشغيل مع رسائل الخطأ ويتم التعامل مع كل نظام وفق رسائل اخطائه Smile
بارك الله فيك و لك وزادك من علمه.


RE: نقل ملفات - ابو خليل99 - 12-06-19

(08-06-19, 02:08 PM)سعود كتب : لم اجد حل جذري لها لكن ....محاولة (تشغيل البرنامج كمسؤول - تستخدم البحث باستخدام  الـ Environments)
وتستخدم الاكواد ضمن Try  ولا تكتب شيء عن الخطا......حل بسيط حتى ياتي خبير برمجي.

بارك الله فيك اخي سعود وبعلمك ونفع بك

(08-06-19, 04:40 PM)elgokr كتب :
اضافة لما قدمه اخى سعود

بخصوص تخطى الخطاء والاستكمال

فيمكنك مراجعة الرابط التالى راجع الشرح فى الرد رقم 4 و 6 جيداً

الرابط سيوضح كيفية التخطى الخطاء

واذا كان بعرض رسالة او بدون 

ويمكن بدلاً من الرسالة استغلال الفكرة كاعمل ليست 
تدرج بها المجلدات التى لم يتمكن من التعامل معها

تحياتى لك
وتمنياتى لك التوفيق



بارك الله فيك اخي وجزاك كل الخير 

باذن الله لي تجربة والعودة لاخبارك بالنتائج