[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