[مهموم]

السلام عليكم ورحمة الله

أخي عادل

جرب هذا الكود

PHP كود :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Try

        Using folderBrowser As New FolderBrowserDialog
            If folderBrowser.ShowDialog = Windows.Forms.DialogResult.OK Then

                Dim folderPath As String = folderBrowser.SelectedPath
                Dim archivePath As String = "مسار مجلد الأرشيف كاملا"

                IO.Directory.Move(folderPath, archivePath & "\" & IO.Path.GetFileName(folderPath))

                MessageBox.Show("تم النقل")

            End If
        End Using

    Catch ex As Exception
        MessageBox.Show(ex.Message)
    End Try
End Sub