[ddemed]

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

كود :

       Dim path As String = String.Empty

       Dim browse As New FolderBrowserDialog
       If browse.ShowDialog = vbOK Then

           path = browse.SelectedPath 'هنا تم قراءة المسار الذي اختاره المستخدم

           MsgBox(path)

       End If

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