[HASAN6.0]

(19-11-15, 05:47 PM)adel27 كتب : إذا كلامك صحيح فأنا في ورطه كبيـره 

اخي عادل , خذ هذا الكود ... شغال 100%

كود :

Cursor = Cursors.WaitCursor
       Dim serverPath As String = "\\192.168.1.2\Programs\"
       Dim op As New FolderBrowserDialog
       If op.ShowDialog = Windows.Forms.DialogResult.OK Then

           Dim MyPath As String = serverPath & Path.GetFileName(op.SelectedPath)
           If (Not System.IO.Directory.Exists(MyPath)) Then
               System.IO.Directory.CreateDirectory(MyPath)
           End If
           My.Computer.FileSystem.MoveDirectory(op.SelectedPath, MyPath)
       End If
       Cursor = Cursors.Default
       MsgBox("Done !!")

ضع في  serverPath  مكان الحفظ .. وتأكد من انه ينتهي بـ \