تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[كود] نقل ملفات
#11
نعم صحيح لقد نسيت يحتاج تعريف آخر ......النسيان مصيبةSad
ساجرب باذن الله ...ان لم يسبقني احد.

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

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


الملفات المرفقة
.zip   Files_Moving.zip (الحجم : 193.76 ك ب / التحميلات : 15)
اللهم إني أعوذ بك من غلبة الدين وغلبة العدو، اللهم إني أعوذ بك من جهد البلاء ومن درك الشقاء ومن سوء القضاء ومن شماتة الأعداء
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير
الرد }}}
تم الشكر بواسطة: elgokr
#12
تم تحديث المثال هنا
بحيث يمكنك الاختيار بين النسخ او النقل
اللهم إني أعوذ بك من غلبة الدين وغلبة العدو، اللهم إني أعوذ بك من جهد البلاء ومن درك الشقاء ومن سوء القضاء ومن شماتة الأعداء
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير
الرد }}}
تم الشكر بواسطة: عبد العزيز البسكري , elgokr
#13
شكرا لك اخي سعود وبارك الله فيك ونفع بك وبعلمك 


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

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


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



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

ظهرت لي مشكلة 

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

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

PHP كود :
*.txt 

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

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

كمثال:


PHP كود :
System.Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments
اللهم إني أعوذ بك من غلبة الدين وغلبة العدو، اللهم إني أعوذ بك من جهد البلاء ومن درك الشقاء ومن سوء القضاء ومن شماتة الأعداء
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير
الرد }}}
تم الشكر بواسطة: عبد العزيز البسكري , elgokr , elgokr
#15
بالنسبة لرسالة الاخيرة هذا يعني ان المصفوفة all لاتحتوي عناصر.
اللهم إني أعوذ بك من غلبة الدين وغلبة العدو، اللهم إني أعوذ بك من جهد البلاء ومن درك الشقاء ومن سوء القضاء ومن شماتة الأعداء
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير
الرد }}}
#16
بارك الله فيك وجزاك كل الخير اخي سعود 

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

بحيث لا يتم البحث داخل المجلدات التي تحتوي صلاحيات ادمن ؟؟
الرد }}}
تم الشكر بواسطة: elgokr
#17
لم اجد حل جذري لها لكن ....محاولة (تشغيل البرنامج كمسؤول - تستخدم البحث باستخدام  الـ Environments)
وتستخدم الاكواد ضمن Try  ولا تكتب شيء عن الخطا......حل بسيط حتى ياتي خبير برمجي.
اللهم إني أعوذ بك من غلبة الدين وغلبة العدو، اللهم إني أعوذ بك من جهد البلاء ومن درك الشقاء ومن سوء القضاء ومن شماتة الأعداء
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير
الرد }}}
تم الشكر بواسطة: ابراهيم ايبو , elgokr , ابو خليل99
#18
اضافة لما قدمه اخى سعود

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

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

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

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

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

تحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

ساهم دائماً فى    لكل من يقوم بالمساهمة
فى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل 
على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد }}}
تم الشكر بواسطة: سعود , ابو خليل99 , ابو خليل99
#19
إقتباس :ويمكن بدلاً من الرسالة استغلال الفكرة كاعمل ليست 

تدرج بها المجلدات التى لم يتمكن من التعامل معها
فعلا فكرة رائعة جدا ...خصوصا لو البرنامج مرتبط بخادم ما يرسل نوع نظام التشغيل مع رسائل الخطأ ويتم التعامل مع كل نظام وفق رسائل اخطائه Smile
بارك الله فيك و لك وزادك من علمه.
اللهم إني أعوذ بك من غلبة الدين وغلبة العدو، اللهم إني أعوذ بك من جهد البلاء ومن درك الشقاء ومن سوء القضاء ومن شماتة الأعداء
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير
الرد }}}
تم الشكر بواسطة: elgokr
#20
(08-06-19, 02:08 PM)سعود كتب : لم اجد حل جذري لها لكن ....محاولة (تشغيل البرنامج كمسؤول - تستخدم البحث باستخدام  الـ Environments)
وتستخدم الاكواد ضمن Try  ولا تكتب شيء عن الخطا......حل بسيط حتى ياتي خبير برمجي.

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

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

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

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

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

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

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

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



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

باذن الله لي تجربة والعودة لاخبارك بالنتائج
الرد }}}
تم الشكر بواسطة: elgokr



التنقل السريع :


يقوم بقرائة الموضوع: