[ابراهيم ايبو]

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

اخوتي الكرام الفت نظركم الى معلومة جدا هامة وهي ان نقل الملفات تكون ضمن البارتشن

 ولايمكن نقل ملف من بارتشن الى اخر الا بطريقة النسخ ثم حذف الاصل فكود النقل في هذه الحالة في كل الاقراص لايعمل

 وسيكون الكود بشقين وشروط 

الاول اذا كان المجلد الذي سننقل اليه الملفات في نفس البارتشن سيكون كود نقل 

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

وفي هذه الحالة نحتاج الى اداة ليست بوكس حتى نضع فيها مسارات الملفات واسمائها ليتم عبرها عملية النسخ ثم الحذف

ارجو ان تكون الفكرة قد اتضحت

دمتم بالف خير

[zinom]

- اضافه لمجهود الكرام
- اعتقد هتحتاج داله فلتره وبحث في البارتيشنات وبعد كده تجميع مسارات 
امر النقل من مكان لمكان ده الكود الخاص بيه بيحتاج مسارين فقط وبيتم بشكل سلس 

كود :

                ' إنشاء مستعرض مجلدات
       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

[alsouf]

يمكنك الاستفادة من الصفحة التالية :
انتقل لصفحة مستندات ميكروسفت

[elgokr]

لى ولكم جميعاً بامر الله

تحياتى لكم 

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