09-06-17, 02:56 AM
كود :
Dim sourcePath As String 'المجلد
Dim destPath As String 'المسار المراد المستهدف
'نقل مجلد
My.Computer.FileSystem.MoveDirectory(sourcePath, destPath)
'نسخ مجلد
My.Computer.FileSystem.CopyDirectory(sourcePath, destPath)