[ddemed]

(09-06-17, 02:56 AM)alma2 كتب :

كود :

       Dim sourcePath As String 'المجلد
       Dim destPath As String 'المسار المراد المستهدف

       'نقل مجلد
       My.Computer.FileSystem.MoveDirectory(sourcePath, destPath)

       'نسخ مجلد
       My.Computer.FileSystem.CopyDirectory(sourcePath, destPath)

شكرا جزيلا اخي الكريم تعمل 100% الان اخي اريد عمل ال unstall باظهار open file dialoge تحديد المسار ثم عمل unstall