كيف يمكن نسخ محتوى مجلد؟

Public Function CopyDirectory(ByVal source As String, ByVal destination As String)
        Try

        
        Dim currentDirectory As DirectoryInfo = New DirectoryInfo(source)
        Dim file As FileInfo

        For Each file In currentDirectory.GetFiles()
            file.CopyTo(Path.Combine(destination, file.Name))
        Next

        Dim di As DirectoryInfo

        For Each di In currentDirectory.GetDirectories()

            Dim subDirectory As String = Path.Combine(destination, di.Name)
            Directory.CreateDirectory(subDirectory)

            CopyDirectory(di.FullName, subDirectory)

            Next
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Function

وهذا مثال

test1.rar