تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[كود] نقل ملفات
#21
السلام عليكم ورحمة الله وبركاته
اخوتي الكرام الفت نظركم الى معلومة جدا هامة وهي ان نقل الملفات تكون ضمن البارتشن
 ولايمكن نقل ملف من بارتشن الى اخر الا بطريقة النسخ ثم حذف الاصل فكود النقل في هذه الحالة في كل الاقراص لايعمل
 وسيكون الكود بشقين وشروط 
الاول اذا كان المجلد الذي سننقل اليه الملفات في نفس البارتشن سيكون كود نقل 
والشرط الثاني ان المجلد الذي سننقل اليه الملفات في بارتشن اخر سيكون الكود عبارة عن نسخ اولا ثم حذف ثانيا 
وفي هذه الحالة نحتاج الى اداة ليست بوكس حتى نضع فيها مسارات الملفات واسمائها ليتم عبرها عملية النسخ ثم الحذف
ارجو ان تكون الفكرة قد اتضحت
دمتم بالف خير
الرد
تم الشكر بواسطة: alsouf
#22
- اضافه لمجهود الكرام
- اعتقد هتحتاج داله فلتره وبحث في البارتيشنات وبعد كده تجميع مسارات 
امر النقل من مكان لمكان ده الكود الخاص بيه بيحتاج مسارين فقط وبيتم بشكل سلس 

كود :
                ' إنشاء مستعرض مجلدات
       Using folderBrowser As New FolderBrowserDialog
           'لو مستعرض الملفات نتيجة ايجابيه
           If folderBrowser.ShowDialog = Windows.Forms.DialogResult.OK Then  'إذا  
               'دالة  تخزن مسار الملف
               Dim sourceDirectoryName As String = folderBrowser.SelectedPath
               'مثال جلب مسار الملف  المراد نقله الي ملف البرنامج في التيكست بوكس
               't4.Text = sourceDirectoryName
               'مثال جلب اسم الملف في تيكست بوكس
               't3.Text = My.Computer.FileSystem.GetDirectoryInfo(sourceDirectoryName).Name
               'داله تقوم بتخزين اسم الملف فقط بها
               Dim filyname As String = My.Computer.FileSystem.GetDirectoryInfo(sourceDirectoryName).Name
               'امر نقل الملف الذي تم تحديده الي ملف البرنامج  __
               My.Computer.FileSystem.MoveDirectory(sourceDirectoryName, Application.StartupPath & "\" + filyname)

           End If


       End Using
اللهم صلي علي نبي (الرحمه) محمد رسول الله وبارك علي اله وصحابته والتابعين  واحقن دماء امتنا واجعل بأسنا علي اعدائنا يا ارحم الراحمين
[b]امين [/b]



الرد
تم الشكر بواسطة: alsouf
#23
يمكنك الاستفادة من الصفحة التالية :
انتقل لصفحة مستندات ميكروسفت
هَٰٓؤُلَآءِ قَوْمُنَا ٱتَّخَذُوا۟ مِن دُونِهِۦٓ ءَالِهَةً لَّوْلَا يَأْتُونَ عَلَيْهِم بِسُلْطَٰنٍۭ بَيِّنٍ فَمَنْ أَظْلَمُ مِمَّنِ ٱفْتَرَىٰ عَلَى ٱللَّهِ كَذِبًا
الرد
تم الشكر بواسطة: zinom , zinom
#24
لى ولكم جميعاً بامر الله

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

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


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد
تم الشكر بواسطة: zinom



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


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم