如何在vb.net中复制文件夹迭代

Question

我创建了一个将文件夹+内容复制到不同位置的程序，但这不适用于我使用的文件夹（50GB）。我目前有一个递归函数，但似乎这超出了内存限制。我现在能想到的唯一解决方案是CMD调用，如。

process.start("cmd", "/C xcopy /E /V /I /Y """ & srcfld & """ """ & targfld & """")

请原谅我的变量名，在输入名字时我很懒。

编辑：请求的功能：

Public Sub ordkop(ByVal srcfld As String, ByVal targfld As String)
    Directory.CreateDirectory(targfld)
    Dim files() As String
    files = Directory.GetFileSystemEntries(srcfld)
    For Each element As String In files
        If Directory.Exists(element) Then
            CopyDir(element, Path.Combine(targfld, Path.GetFileName(element)))
        Else
            File.Copy(element, Path.Combine(targfld, Path.GetFileName(element)), True)
        End If
    Next
End Sub